From b18304ac527691bb778ca467cfef17805a4d85a7 Mon Sep 17 00:00:00 2001
From: Michael Williamson <mike@zwobble.org>
Date: Tue, 24 Oct 2023 21:17:39 +0100
Subject: Type check return type of function type

---
 .../compiler/ast/typed/TypedNodeMatchers.java      |  9 +++++
 .../typechecker/TypeCheckerFunctionTypeTests.java  | 39 ++++++++++++++++++++++
 2 files changed, 48 insertions(+)
 create mode 100644 src/test/java/org/shedlang/compiler/typechecker/TypeCheckerFunctionTypeTests.java

(limited to 'src/test/java')

diff --git a/src/test/java/org/shedlang/compiler/ast/typed/TypedNodeMatchers.java b/src/test/java/org/shedlang/compiler/ast/typed/TypedNodeMatchers.java
index c5a27329..112b2f02 100644
--- a/src/test/java/org/shedlang/compiler/ast/typed/TypedNodeMatchers.java
+++ b/src/test/java/org/shedlang/compiler/ast/typed/TypedNodeMatchers.java
@@ -125,6 +125,15 @@ public class TypedNodeMatchers {
         );
     }
 
+    public static Matcher<TypedTypeLevelExpressionNode<?>> isTypedFunctionTypeNode(
+        Matcher<FunctionType> value
+    ) {
+        return instanceOf(
+            TypedFunctionTypeNode.class,
+            has("value", x -> x.value(), value)
+        );
+    }
+
     public static Matcher<TypedExpressionNode> isTypedIfNode(
         Matcher<Iterable<? extends TypedConditionalBranchNode>> conditionalBranches,
         Matcher<TypedBlockNode> elseBody
diff --git a/src/test/java/org/shedlang/compiler/typechecker/TypeCheckerFunctionTypeTests.java b/src/test/java/org/shedlang/compiler/typechecker/TypeCheckerFunctionTypeTests.java
new file mode 100644
index 00000000..608e3caf
--- /dev/null
+++ b/src/test/java/org/shedlang/compiler/typechecker/TypeCheckerFunctionTypeTests.java
@@ -0,0 +1,39 @@
+package org.shedlang.compiler.typechecker;
+
+import org.junit.jupiter.api.Test;
+import org.shedlang.compiler.ast.untyped.Untyped;
+import org.shedlang.compiler.ast.untyped.UntypedFunctionTypeNode;
+import org.shedlang.compiler.typechecker.typesets.TypeSets;
+import org.shedlang.compiler.types.FunctionType;
+import org.shedlang.compiler.types.Types;
+import org.shedlang.compiler.util.P;
+
+import java.util.Map;
+
+import static org.shedlang.compiler.ast.typed.TypedNodeMatchers.isTypedFunctionTypeNode;
+import static org.zwobble.precisely.AssertThat.assertThat;
+import static org.zwobble.precisely.Matchers.equalTo;
+
+public class TypeCheckerFunctionTypeTests {
+    @Test
+    public void returnTypeIsTypeChecked() {
+        var untyped = UntypedFunctionTypeNode.builder()
+            .withReturnType(Untyped.typeLevelReference("String"))
+            .build();
+        var context = TypeCheckerContext.EMPTY
+            .enterGlobal(P.map(
+                Map.entry("String", Types.metaType(Types.STRING))
+            ));
+
+        var typed = TypeChecker.typeCheckTypeLevelExpression(TypeSets.META_TYPE, untyped, context);
+
+        assertThat(
+            typed,
+            isTypedFunctionTypeNode(equalTo(
+                FunctionType.builder()
+                    .withReturnType(Types.STRING)
+                    .build()
+            ))
+        );
+    }
+}
-- 
cgit v1.2.3