update for tap update
This commit is contained in:
parent
443da20c4b
commit
60079d9eb9
2 changed files with 2 additions and 2 deletions
|
@ -25,7 +25,7 @@ parameters (label : String) (act : Lazy (M ()))
|
|||
testEq = test label $ runReaderT globals act
|
||||
|
||||
testNeq : Test
|
||||
testNeq = testThrows label (const True) $ runReaderT globals act
|
||||
testNeq = testThrows label (const True) $ runReaderT globals act $> "()"
|
||||
|
||||
|
||||
parameters (0 d : Nat) (ctx : TyContext Three d n)
|
||||
|
|
|
@ -95,7 +95,7 @@ parameters (label : String) (act : Lazy (M ()))
|
|||
testTC = test label $ runReaderT globals act
|
||||
|
||||
testTCFail : Test
|
||||
testTCFail = testThrows label (const True) $ runReaderT globals act
|
||||
testTCFail = testThrows label (const True) $ runReaderT globals act $> "()"
|
||||
|
||||
|
||||
anys : {n : Nat} -> QContext Three n
|
||||
|
|
Loading…
Reference in a new issue