👩🔬 test
This commit is contained in:
@ -103,6 +103,9 @@ tests =
|
||||
@?= Right (ValInt 5),
|
||||
testCase "Apply (fact)" $
|
||||
eval envEmpty (Apply fact (CstInt 5)) @?= Right (ValInt 120),
|
||||
testCase "Apply (order)" $
|
||||
eval envEmpty (Apply (CstInt 1) (Var "missing"))
|
||||
@?= Left "Unknown variable: missing",
|
||||
testCase "Try" $
|
||||
eval envEmpty (TryCatch (CstInt 0) (CstInt 1))
|
||||
@?= Right (ValInt 0),
|
||||
|
Reference in New Issue
Block a user