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

fix up tests

Browse source
This commit is contained in:
rhiannon morris 2023-03-31 23:43:25 +02:00
parent 5e220da2f4
commit a17752f31c
5 changed files with 38 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tests/Tests/Equal.idr
View file

@ -1,12 +1,14 @@
module Tests.Equal
import Quox.Equal
import Quox.Typechecker
import Quox.Syntax.Qty.Three
import public TypingImpls
import TAP
import Quox.EffExtra
0 M : Type -> Type
M = ReaderT (Definitions Three) (Either (Error Three))
M = TC Three
defGlobals : Definitions Three
defGlobals = fromList
@ -23,10 +25,10 @@ defGlobals = fromList
parameters (label : String) (act : Lazy (M ()))
{default defGlobals globals : Definitions Three}
testEq : Test
testEq = test label $ runReaderT globals act
testEq = test label $ runTC globals act
testNeq : Test
testNeq = testThrows label (const True) $ runReaderT globals act $> "()"
testNeq = testThrows label (const True) $ runTC globals act $> "()"
parameters (0 d : Nat) (ctx : TyContext Three d n)