Parse tuple expressions

2 files changed, 32 insertions, 0 deletions

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 a86c8d6e..e65bcb5c 100644
--- a/src/test/java/org/shedlang/compiler/ast/untyped/UntypedNodeMatchers.java
+++ b/src/test/java/org/shedlang/compiler/ast/untyped/UntypedNodeMatchers.java
@@ -220,6 +220,15 @@ public class UntypedNodeMatchers {
         );
     }
 
+    public static Matcher<UntypedExpressionNode> isUntypedTupleNode(
+        Matcher<Iterable<? extends UntypedExpressionNode>> elements
+    ) {
+        return instanceOf(
+            UntypedTupleNode.class,
+            has("elements", x -> x.elements(), elements)
+        );
+    }
+
     public static Matcher<UntypedTypeLevelExpressionNode> isUntypedTypeLevelReferenceNode(String name) {
         return instanceOf(
             UntypedTypeLevelReferenceNode.class,
diff --git a/src/test/java/org/shedlang/compiler/parser/ParserTupleTests.java b/src/test/java/org/shedlang/compiler/parser/ParserTupleTests.java
new file mode 100644
index 00000000..15ac079a
--- /dev/null
+++ b/src/test/java/org/shedlang/compiler/parser/ParserTupleTests.java
@@ -0,0 +1,23 @@
+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 ParserTupleTests {
+    @Test
+    public void canParseTuple() {
+        var source = "#(false, 1, 2)";
+
+        var node = parseString(source, Parser::parseTopLevelExpression);
+
+        assertThat(node, isUntypedTupleNode(isSequence(
+            isUntypedBoolLiteralNode(false),
+            isUntypedIntLiteralNode(1),
+            isUntypedIntLiteralNode(2)
+        )));
+    }
+}