From 8d9a828fcdaa35b8826c8d3988a8927ea916555c Mon Sep 17 00:00:00 2001
From: Michael Williamson <mike@zwobble.org>
Date: Sat, 10 Jun 2023 11:20:32 +0100
Subject: Check named arg type matched named param type

---
 .../compiler/typechecker/TypeCheckerCallTests.java | 24 ++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'src/test/java')

diff --git a/src/test/java/org/shedlang/compiler/typechecker/TypeCheckerCallTests.java b/src/test/java/org/shedlang/compiler/typechecker/TypeCheckerCallTests.java
index fb645d67..928ffa32 100644
--- a/src/test/java/org/shedlang/compiler/typechecker/TypeCheckerCallTests.java
+++ b/src/test/java/org/shedlang/compiler/typechecker/TypeCheckerCallTests.java
@@ -120,4 +120,28 @@ public class TypeCheckerCallTests {
         assertThat(error.expected(), equalTo(TypeSets.type(Types.INT)));
         assertThat(error.actual(), equalTo(Types.STRING));
     }
+
+    @Test
+    public void whenNamedArgHasWrongTypeThenErrorIsThrown() {
+        var untyped = Untyped.call(
+            Untyped.reference("f"),
+            List.of(),
+            List.of(
+                Untyped.namedArg("x", Untyped.stringLiteral("hello"))
+            )
+        );
+        var functionType = FunctionType.builder()
+            .addNamedParam("x", Types.INT)
+            .build();
+        var context = TypeCheckerContext.EMPTY
+            .enter(P.map(Map.entry("f", functionType)));
+
+        var error = assertThrows(
+            UnexpectedTypeError.class,
+            () -> TypeChecker.typeCheckExpression(untyped, context)
+        );
+
+        assertThat(error.expected(), equalTo(TypeSets.type(Types.INT)));
+        assertThat(error.actual(), equalTo(Types.STRING));
+    }
 }
-- 
cgit v1.2.3