NikolajDanger/2024B1-AP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

👩‍🔬 test

Browse Source
This commit is contained in:
Nikolaj Gade
2024-09-06 15:51:28 +02:00
parent f7092c81db
commit 6281faf341
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
a1/src/APL/Eval_Tests.hs
View File

@ -103,6 +103,9 @@ tests =
@?= Right (ValInt 5), @?= Right (ValInt 5),
testCase "Apply (fact)" $ testCase "Apply (fact)" $
eval envEmpty (Apply fact (CstInt 5)) @?= Right (ValInt 120), 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" $ testCase "Try" $
eval envEmpty (TryCatch (CstInt 0) (CstInt 1)) eval envEmpty (TryCatch (CstInt 0) (CstInt 1))
@?= Right (ValInt 0), @?= Right (ValInt 0),