Add data-ptr-get instruction

2 files changed, 17 insertions, 0 deletions

diff --git a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
index 67227c7b..fbc770f7 100644
--- a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
+++ b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
@@ -110,6 +110,15 @@ public class PatioSerializerTests {
     }
 
     @Test
+    public void canSerializeDataPtrGet() {
+        var instruction = Patio.dataPtrGet("target", "x");
+
+        var string = PatioTesting.serializeInstruction(instruction);
+
+        assertThat(string, equalTo("(data-ptr-get \"target\" \"x\")"));
+    }
+
+    @Test
     public void canSerializeDataPtrToInt() {
         var instruction = Patio.dataPtrToInt("target", "value");
 
diff --git a/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java b/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
index 0f434cd5..79b2f6ed 100644
--- a/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
+++ b/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java
@@ -40,6 +40,14 @@ public class Patio {
         return new PatioDataElement(name, layout, Sources.NULL);
     }
 
+    public static PatioDataPtrGet dataPtrGet(String target, String name) {
+        return new PatioDataPtrGet(
+            new PatioLocalRef(target),
+            name,
+            Sources.NULL
+        );
+    }
+
     public static PatioInstruction dataPtrToInt(String target, String value) {
         return new PatioDataPtrToInt(
             new PatioLocalRef(target),