From 6acf0ef2012b6cbc412efb6958274504bc4c8fce Mon Sep 17 00:00:00 2001
From: Michael Williamson <mike@zwobble.org>
Date: Mon, 3 Jul 2023 13:39:48 +0100
Subject: Compile val node to IR instructions

---
 .../org/shedlang/compiler/ast/typed/Typed.java     | 11 ++++++++++
 .../compiler/stackir/StackCompilerValTests.java    | 25 ++++++++++++++++++++++
 2 files changed, 36 insertions(+)
 create mode 100644 src/test/java/org/shedlang/compiler/stackir/StackCompilerValTests.java

(limited to 'src/test/java')

diff --git a/src/test/java/org/shedlang/compiler/ast/typed/Typed.java b/src/test/java/org/shedlang/compiler/ast/typed/Typed.java
index ff87c8e8..2b9defee 100644
--- a/src/test/java/org/shedlang/compiler/ast/typed/Typed.java
+++ b/src/test/java/org/shedlang/compiler/ast/typed/Typed.java
@@ -74,10 +74,21 @@ public class Typed {
         return new TypedReferenceNode(name, type, Sources.NULL);
     }
 
+    public static TypedTargetNode targetVariable(String name) {
+        return new TypedTargetNode.Variable(name, Sources.NULL);
+    }
+
     public static <T extends TypeLevelValue> TypedTypeLevelExpressionNode<T> typeLevelReference(
         String name,
         T value
     ) {
         return new TypedTypeLevelReferenceNode<>(name, value, Sources.NULL);
     }
+
+    public static TypedValNode val(
+        TypedTargetNode target,
+        TypedExpressionNode expression
+    ) {
+        return new TypedValNode(target, expression, Sources.NULL);
+    }
 }
diff --git a/src/test/java/org/shedlang/compiler/stackir/StackCompilerValTests.java b/src/test/java/org/shedlang/compiler/stackir/StackCompilerValTests.java
new file mode 100644
index 00000000..3126c82b
--- /dev/null
+++ b/src/test/java/org/shedlang/compiler/stackir/StackCompilerValTests.java
@@ -0,0 +1,25 @@
+package org.shedlang.compiler.stackir;
+
+import org.junit.jupiter.api.Test;
+import org.shedlang.compiler.ast.typed.Typed;
+
+import static org.shedlang.compiler.stackir.instructions.InstructionMatchers.*;
+import static org.zwobble.precisely.AssertThat.assertThat;
+import static org.zwobble.precisely.Matchers.isSequence;
+
+public class StackCompilerValTests {
+    @Test
+    public void expressionIsEvaluatedAndStoredAsLocal() {
+        var node = Typed.val(
+            Typed.targetVariable("x"),
+            Typed.stringLiteral("hello")
+        );
+
+        var instructions = StackCompiler.compileFunctionStatement(node);
+
+        assertThat(instructions, isSequence(
+            isPushStringInstruction("hello"),
+            isLocalStoreInstruction("x")
+        ));
+    }
+}
-- 
cgit v1.2.3