fix tag stuff in test labels
This commit is contained in:
parent
02b94ab705
commit
8fc0b414cf
1 changed files with 4 additions and 4 deletions
|
@ -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"])
|
||||
],
|
||||
|
||||
|
|
Loading…
Reference in a new issue