rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

equality tests

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/Tests/Equal.idr
View file

@ -139,7 +139,12 @@ tests = "equality & subtyping" :- [
subE (F "A") (F "B") 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" :- [ "application" :- [
testEq "f [a] ≡ f [a]" $ testEq "f [a] ≡ f [a]" $