Add field-load instruction

2 files changed, 16 insertions, 0 deletions

diff --git a/src/test/java/org/shedlang/compiler/stackir/InstructionSerializerTests.java b/src/test/java/org/shedlang/compiler/stackir/InstructionSerializerTests.java
index 5877613d..74e018f3 100644
--- a/src/test/java/org/shedlang/compiler/stackir/InstructionSerializerTests.java
+++ b/src/test/java/org/shedlang/compiler/stackir/InstructionSerializerTests.java
@@ -64,6 +64,18 @@ public class InstructionSerializerTests {
     }
 
     @Test
+    public void canSerializeFieldLoad() {
+        var instruction = Instructions.fieldLoad(
+            new NamespaceName(List.of("Example", "Lib")),
+            "x"
+        );
+
+        var string = serialize(instruction);
+
+        assertThat(string, equalTo("(field-load \"Example/Lib\" \"x\")"));
+    }
+
+    @Test
     public void canSerializeLocalLoad() {
         var instruction = Instructions.localLoad("x");
 
diff --git a/src/test/java/org/shedlang/compiler/stackir/instructions/Instructions.java b/src/test/java/org/shedlang/compiler/stackir/instructions/Instructions.java
index 6108947b..adc0731b 100644
--- a/src/test/java/org/shedlang/compiler/stackir/instructions/Instructions.java
+++ b/src/test/java/org/shedlang/compiler/stackir/instructions/Instructions.java
@@ -18,6 +18,10 @@ public class Instructions {
         return new DiscardInstruction(Sources.NULL);
     }
 
+    public static Instruction fieldLoad(NamespaceName namespaceName, String fieldName) {
+        return new FieldLoadInstruction(namespaceName, fieldName, Sources.NULL);
+    }
+
     public static Instruction localLoad(String name) {
         return new LocalLoadInstruction(name, Sources.NULL);
     }