From 72779bc8003f07742a94f34853f2be94004a61ee Mon Sep 17 00:00:00 2001
From: Michael Williamson <mike@zwobble.org>
Date: Thu, 2 Nov 2023 23:22:05 +0000
Subject: Parse unit literals

---
 .../compiler/ast/untyped/UntypedNodeMatchers.java     |  4 ++++
 .../compiler/parser/ParserUnitLiteralTests.java       | 19 +++++++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 src/test/java/org/shedlang/compiler/parser/ParserUnitLiteralTests.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 8eb92ebb..ea21a693 100644
--- a/src/test/java/org/shedlang/compiler/ast/untyped/UntypedNodeMatchers.java
+++ b/src/test/java/org/shedlang/compiler/ast/untyped/UntypedNodeMatchers.java
@@ -349,6 +349,10 @@ public class UntypedNodeMatchers {
         );
     }
 
+    public static Matcher<UntypedExpressionNode> isUntypedUnitLiteralNode() {
+        return instanceOf(UntypedUnitLiteralNode.class);
+    }
+
     public static Matcher<UntypedExpressionNode> isUntypedWhenNode(
         Matcher<UntypedExpressionNode> expression,
         Matcher<Iterable<? extends UntypedWhenCaseNode>> cases
diff --git a/src/test/java/org/shedlang/compiler/parser/ParserUnitLiteralTests.java b/src/test/java/org/shedlang/compiler/parser/ParserUnitLiteralTests.java
new file mode 100644
index 00000000..08fcfcc7
--- /dev/null
+++ b/src/test/java/org/shedlang/compiler/parser/ParserUnitLiteralTests.java
@@ -0,0 +1,19 @@
+package org.shedlang.compiler.parser;
+
+import org.junit.jupiter.api.Test;
+
+import static org.shedlang.compiler.ast.untyped.UntypedNodeMatchers.isUntypedUnitLiteralNode;
+import static org.shedlang.compiler.parser.ParserTesting.parseString;
+import static org.zwobble.precisely.AssertThat.assertThat;
+
+public class ParserUnitLiteralTests {
+    @Test
+    public void canParseUnitLiteral() {
+        var source = "unit";
+
+        var node = parseString(source, Parser::parseTopLevelExpression);
+
+        assertThat(node, isUntypedUnitLiteralNode());
+    }
+
+}
-- 
cgit v1.2.3