From dfea9b1ce0247ae61e590cf91c59f4dd3ae93db5 Mon Sep 17 00:00:00 2001 From: Michael Williamson Date: Sun, 23 Jul 2023 11:30:13 +0100 Subject: Add int-to-bool instruction to Patio --- .../java/org/shedlang/compiler/patio/PatioSerializerTests.java | 9 +++++++++ .../java/org/shedlang/compiler/patio/instructions/Patio.java | 4 ++++ 2 files changed, 13 insertions(+) (limited to 'src/test/java') diff --git a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java index 6ab294a4..0574d035 100644 --- a/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java +++ b/src/test/java/org/shedlang/compiler/patio/PatioSerializerTests.java @@ -257,6 +257,15 @@ public class PatioSerializerTests { )); } + @Test + public void canSerializeIntToBool() { + var instruction = Patio.intToBool(Patio.localRef("target"), Patio.localRef("value")); + + var string = PatioTesting.serializeInstruction(instruction); + + assertThat(string, equalTo("(int-to-bool (local \"target\") (local \"value\"))")); + } + @Test public void canSerializeIntToDataPtr() { var instruction = Patio.intToDataPtr("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 b89f308d..438022ec 100644 --- a/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java +++ b/src/test/java/org/shedlang/compiler/patio/instructions/Patio.java @@ -124,6 +124,10 @@ public class Patio { return new PatioIntEquals(target, left, right, Sources.NULL); } + public static PatioInstruction intToBool(PatioLocalRef target, PatioLocalRef value) { + return new PatioIntToBool(target, value, Sources.NULL); + } + public static PatioInstruction intToDataPtr(String target, String value) { return new PatioIntToDataPtr( new PatioLocalRef(target), -- cgit v1.2.3