From f2787ed9b40deabbbc9cbe2a6d38cafd1436fc6f Mon Sep 17 00:00:00 2001
From: Michael Williamson <mike@zwobble.org>
Date: Sat, 19 Aug 2023 10:42:44 +0100
Subject: Parse while loops

---
 .../compiler/ast/untyped/UntypedNodeMatchers.java  | 12 ++++++++-
 .../shedlang/compiler/parser/ParserWhileTests.java | 29 ++++++++++++++++++++++
 2 files changed, 40 insertions(+), 1 deletion(-)
 create mode 100644 src/test/java/org/shedlang/compiler/parser/ParserWhileTests.java

(limited to 'src/test/java')

diff --git a/src/test/java/org/shedlang/compiler/ast/untyped/UntypedNodeMatchers.java b/src/test/java/org/shedlang/compiler/ast/untyped/UntypedNodeMatchers.java
index a05c8e55..a5d4e693 100644
--- a/src/test/java/org/shedlang/compiler/ast/untyped/UntypedNodeMatchers.java
+++ b/src/test/java/org/shedlang/compiler/ast/untyped/UntypedNodeMatchers.java
@@ -59,7 +59,6 @@ public class UntypedNodeMatchers {
             has("expression", x -> x.expression(), expression)
         );
     }
-
     public static Matcher<UntypedExpressionNode> isUntypedBoolLiteralNode(boolean value) {
         return instanceOf(
             UntypedBoolLiteralNode.class,
@@ -226,4 +225,15 @@ public class UntypedNodeMatchers {
             has("expression", x -> x.expression(), expression)
         );
     }
+
+    public static Matcher<UntypedFunctionStatementNode> isUntypedWhileNode(
+        Matcher<UntypedExpressionNode> condition,
+        Matcher<UntypedBlockNode> body
+    ) {
+        return instanceOf(
+            UntypedWhileNode.class,
+            has("condition", x -> x.condition(), condition),
+            has("body", x -> x.body(), body)
+        );
+    }
 }
diff --git a/src/test/java/org/shedlang/compiler/parser/ParserWhileTests.java b/src/test/java/org/shedlang/compiler/parser/ParserWhileTests.java
new file mode 100644
index 00000000..8382f2fa
--- /dev/null
+++ b/src/test/java/org/shedlang/compiler/parser/ParserWhileTests.java
@@ -0,0 +1,29 @@
+package org.shedlang.compiler.parser;
+
+import org.junit.jupiter.api.Test;
+
+import static org.shedlang.compiler.ast.untyped.UntypedNodeMatchers.*;
+import static org.shedlang.compiler.parser.ParserTesting.parseString;
+import static org.zwobble.precisely.AssertThat.assertThat;
+import static org.zwobble.precisely.Matchers.isSequence;
+
+public class ParserWhileTests {
+    @Test
+    public void canParseWhile() {
+        var source = """
+            while (true) {
+                f();
+            }""";
+
+        var node = parseString(source, Parser::parseFunctionStatement);
+
+        assertThat(node, isUntypedWhileNode(
+            isUntypedBoolLiteralNode(true),
+            isUntypedBlockNode(isSequence(
+                isUntypedExpressionStatementNode(
+                    isUntypedCallNode().withReceiver(isUntypedReferenceNode("f"))
+                )
+            ))
+        ));
+    }
+}
-- 
cgit v1.2.3