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

fix tag stuff in test labels

Browse source
This commit is contained in:
rhiannon morris 2023-03-05 13:17:46 +01:00
parent 02b94ab705
commit 8fc0b414cf
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/Tests/Typechecker.idr
View file

@ -343,13 +343,13 @@ tests = "typechecker" :- [
], ],
"enums" :- [ "enums" :- [
testTC "1 · `a ⇐ {a}" $ testTC "1 · 'a ⇐ {a}" $
check_ (ctx [<]) sone (Tag "a") (enum ["a"]), check_ (ctx [<]) sone (Tag "a") (enum ["a"]),
testTC "1 · `a ⇐ {a, b, c}" $ testTC "1 · 'a ⇐ {a, b, c}" $
check_ (ctx [<]) sone (Tag "a") (enum ["a", "b", "c"]), check_ (ctx [<]) sone (Tag "a") (enum ["a", "b", "c"]),
testTCFail "1 · `a ⇍ {b, c}" $ testTCFail "1 · 'a ⇍ {b, c}" $
check_ (ctx [<]) sone (Tag "a") (enum ["b", "c"]), check_ (ctx [<]) sone (Tag "a") (enum ["b", "c"]),
testTC "0=1 ⊢ 1 · `a ⇐ {b, c}" $ testTC "0=1 ⊢ 1 · 'a ⇐ {b, c}" $
check_ (ctx01 [<]) sone (Tag "a") (enum ["b", "c"]) check_ (ctx01 [<]) sone (Tag "a") (enum ["b", "c"])
], ],