Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

new good version works

Browse source
This commit is contained in:
sebastianselander 2023-03-24 17:06:32 +01:00
parent f404acdbad
commit 3c2cb1a713
6 changed files with 63 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tests/Tests.hs
View file

@ -61,7 +61,7 @@ infer_eid = describe "algoW used on EVar" $ do
property $ \x -> do
let env = Env 0 mempty mempty
let t = T.TVar $ T.MkTVar "a"
let ctx = Ctx (M.singleton (Ident (x :: String)) t)
let ctx = Ctx (M.singleton (T.Ident (x :: String)) t)
getTypeC env ctx (EVar (LIdent x)) `shouldBe` Right (T.TVar $ T.MkTVar "a")
infer_eabs = describe "algoW used on EAbs" $ do