Mark Patio block as an instruction

1 files changed, 26 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 23cdf596..fbcc4459 100644
--- a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
+++ b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java
@@ -161,6 +161,32 @@ public class PatioSerializerTests {
     }
 
     @Test
+    public void canSerializeBlock() {
+        var instruction = Patio.block(
+            List.of(
+                Patio.localStore(Patio.localRef("x1"), Patio.int_(1)),
+                Patio.localStore(Patio.localRef("y1"), Patio.int_(2))
+            ),
+            List.of(
+                Patio.localRef("x1"),
+                Patio.localRef("y1")
+            )
+        );
+
+        var string = PatioTesting.serializeInstruction(instruction);
+
+        assertThat(string, equalTo("""
+            (
+                block
+                (
+                    (local-store (local "x1") (int 1))
+                    (local-store (local "y1") (int 2))
+                )
+                results=((local "x1") (local "y1"))
+            )"""));
+    }
+
+    @Test
     public void canSerializeBoolToInt() {
         var instruction = Patio.boolToInt(Patio.localRef("target"), Patio.localRef("value"));