equality tests
This commit is contained in:
parent
a26eba7d7f
commit
89f9793143
1 changed files with 48 additions and 43 deletions
|
@ -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]" $
|
||||
|
|
Loading…
Reference in a new issue