fix tag stuff in test labels

This commit is contained in:
rhiannon morris 2023-03-05 13:17:46 +01:00
parent 02b94ab705
commit 8fc0b414cf

View file

@ -343,13 +343,13 @@ tests = "typechecker" :- [
],
"enums" :- [
testTC "1 · `a ⇐ {a}" $
testTC "1 · 'a ⇐ {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"]),
testTCFail "1 · `a ⇍ {b, c}" $
testTCFail "1 · 'a ⇍ {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"])
],