equality tests

This commit is contained in:
rhiannon morris 2022-05-09 18:31:43 +02:00
parent a26eba7d7f
commit 89f9793143
1 changed files with 48 additions and 43 deletions

View File

@ -139,7 +139,12 @@ tests = "equality & subtyping" :- [
subE (F "A") (F "B")
],
todo "bound var",
"bound var" :- [
testEq "#0 ≡ #0" $
equalE (BV 0) (BV 0) {n = 1},
testNeq "#0 ≢ #1" $
equalE (BV 0) (BV 1) {n = 2}
],
"application" :- [
testEq "f [a] ≡ f [a]" $