summaryrefslogtreecommitdiff
path: root/dhall/tests
diff options
context:
space:
mode:
authorNadrieril2019-11-11 18:20:52 +0000
committerNadrieril2019-11-11 18:20:52 +0000
commitb33e1fc80bb0e7191c1ea3378569ed8c0fe4af6d (patch)
tree6393fec65f1576a8c9fcea28e38b4a0ae1b256a3 /dhall/tests
parentd5b28bf2b4a5a26de67e4de731ad19699f33e75e (diff)
Add more detail to TypeMismatch error
Diffstat (limited to 'dhall/tests')
-rw-r--r--dhall/tests/type-errors/hurkensParadox.txt7
-rw-r--r--dhall/tests/type-errors/unit/FunctionApplicationArgumentNotMatch.txt12
-rw-r--r--dhall/tests/type-errors/unit/ListLiteralEmptyNotType.txt7
-rw-r--r--dhall/tests/type-errors/unit/MergeHandlerNotMatchAlternativeType.txt12
-rw-r--r--dhall/tests/type-errors/unit/NaturalSubtractNotNatural.txt7
5 files changed, 45 insertions, 0 deletions
diff --git a/dhall/tests/type-errors/hurkensParadox.txt b/dhall/tests/type-errors/hurkensParadox.txt
index 69428b8..870388d 100644
--- a/dhall/tests/type-errors/hurkensParadox.txt
+++ b/dhall/tests/type-errors/hurkensParadox.txt
@@ -1 +1,8 @@
[unknown location] Type error: Wrong type of function argument
+[unknown location] This argument has type Sort
+ --> 5:21
+ |
+5 | in let pow = λ(X : Kind) → X → Type␊
+ | ^--^
+ |
+ = But the function expected an argument of type Kind
diff --git a/dhall/tests/type-errors/unit/FunctionApplicationArgumentNotMatch.txt b/dhall/tests/type-errors/unit/FunctionApplicationArgumentNotMatch.txt
index 69428b8..d3b1f50 100644
--- a/dhall/tests/type-errors/unit/FunctionApplicationArgumentNotMatch.txt
+++ b/dhall/tests/type-errors/unit/FunctionApplicationArgumentNotMatch.txt
@@ -1 +1,13 @@
[unknown location] Type error: Wrong type of function argument
+ --> 1:22
+ |
+1 | (λ(_ : Natural) → _) True␊
+ | ^--^
+ |
+ = This argument has type Value@WHNF { value: AppliedBuiltin(Bool, []), type: Type }
+ --> 1:8
+ |
+1 | (λ(_ : Natural) → _) True␊
+ | ^-----^
+ |
+ = But the function expected an argument of type Value@WHNF { value: AppliedBuiltin(Natural, []), type: Type }
diff --git a/dhall/tests/type-errors/unit/ListLiteralEmptyNotType.txt b/dhall/tests/type-errors/unit/ListLiteralEmptyNotType.txt
index bc5cc40..e075521 100644
--- a/dhall/tests/type-errors/unit/ListLiteralEmptyNotType.txt
+++ b/dhall/tests/type-errors/unit/ListLiteralEmptyNotType.txt
@@ -4,3 +4,10 @@
| ^--^
|
= Type error: Wrong type of function argument
+ --> 1:11
+ |
+1 | [] : List Type␊
+ | ^--^
+ |
+ = This argument has type Kind
+[unknown location] But the function expected an argument of type Type
diff --git a/dhall/tests/type-errors/unit/MergeHandlerNotMatchAlternativeType.txt b/dhall/tests/type-errors/unit/MergeHandlerNotMatchAlternativeType.txt
index 69428b8..3f6c6a6 100644
--- a/dhall/tests/type-errors/unit/MergeHandlerNotMatchAlternativeType.txt
+++ b/dhall/tests/type-errors/unit/MergeHandlerNotMatchAlternativeType.txt
@@ -1 +1,13 @@
[unknown location] Type error: Wrong type of function argument
+ --> 1:38
+ |
+1 | merge { x = λ(_ : Bool) → _ } (< x : Natural >.x 1)␊
+ | ^-----^
+ |
+ = This argument has type Type
+ --> 1:19
+ |
+1 | merge { x = λ(_ : Bool) → _ } (< x : Natural >.x 1)␊
+ | ^--^
+ |
+ = But the function expected an argument of type Value@WHNF { value: AppliedBuiltin(Bool, []), type: Type }
diff --git a/dhall/tests/type-errors/unit/NaturalSubtractNotNatural.txt b/dhall/tests/type-errors/unit/NaturalSubtractNotNatural.txt
index fd906bf..02a9c45 100644
--- a/dhall/tests/type-errors/unit/NaturalSubtractNotNatural.txt
+++ b/dhall/tests/type-errors/unit/NaturalSubtractNotNatural.txt
@@ -4,3 +4,10 @@
| ^--------------^
|
= Type error: Wrong type of function argument
+ --> 1:18
+ |
+1 | Natural/subtract True True␊
+ | ^--^
+ |
+ = This argument has type Value@WHNF { value: AppliedBuiltin(Bool, []), type: Type }
+[unknown location] But the function expected an argument of type Value@WHNF { value: AppliedBuiltin(Natural, []), type: Type }