From 59046902a85e7fd0a75195f50594cfad86e1bc51 Mon Sep 17 00:00:00 2001
From: Michael Williamson <mike@zwobble.org>
Date: Wed, 27 Sep 2023 20:08:28 +0100
Subject: Parse field access

---
 .../compiler/ast/untyped/UntypedNodeMatchers.java  | 11 +++++++++++
 .../compiler/parser/ParserFieldAccessTests.java    | 22 ++++++++++++++++++++++
 2 files changed, 33 insertions(+)
 create mode 100644 src/test/java/org/shedlang/compiler/parser/ParserFieldAccessTests.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 7d80b4ab..0dac3b15 100644
--- a/src/test/java/org/shedlang/compiler/ast/untyped/UntypedNodeMatchers.java
+++ b/src/test/java/org/shedlang/compiler/ast/untyped/UntypedNodeMatchers.java
@@ -97,6 +97,17 @@ public class UntypedNodeMatchers {
         );
     }
 
+    public static Matcher<UntypedExpressionNode> isUntypedFieldAccessNode(
+        Matcher<UntypedExpressionNode> receiver,
+        String fieldName
+    ) {
+        return instanceOf(
+            UntypedFieldAccessNode.class,
+            has("receiver", x -> x.receiver(), receiver),
+            has("fieldName", x -> x.fieldName(), equalTo(fieldName))
+        );
+    }
+
     public static UntypedFunctionDefinitionNodeMatcher isUntypedFunctionDefinitionNode() {
         return UntypedFunctionDefinitionNodeMatcher.empty();
     }
diff --git a/src/test/java/org/shedlang/compiler/parser/ParserFieldAccessTests.java b/src/test/java/org/shedlang/compiler/parser/ParserFieldAccessTests.java
new file mode 100644
index 00000000..a543d38e
--- /dev/null
+++ b/src/test/java/org/shedlang/compiler/parser/ParserFieldAccessTests.java
@@ -0,0 +1,22 @@
+package org.shedlang.compiler.parser;
+
+import org.junit.jupiter.api.Test;
+
+import static org.shedlang.compiler.ast.untyped.UntypedNodeMatchers.isUntypedFieldAccessNode;
+import static org.shedlang.compiler.ast.untyped.UntypedNodeMatchers.isUntypedReferenceNode;
+import static org.shedlang.compiler.parser.ParserTesting.parseString;
+import static org.zwobble.precisely.AssertThat.assertThat;
+
+public class ParserFieldAccessTests {
+    @Test
+    public void canParseFieldAccess() {
+        var source = "x.y";
+
+        var node = parseString(source, Parser::parseTopLevelExpression);
+
+        assertThat(
+            node,
+            isUntypedFieldAccessNode(isUntypedReferenceNode("x"), "y")
+        );
+    }
+}
-- 
cgit v1.2.3