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

✅ Checking

Browse Source
This commit is contained in:
Nikolaj Gade
2024-09-20 16:34:10 +02:00
parent 234ec39985
commit 69b947f966
2 changed files with 97 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
a2/a2-handout/src/APL/Check_Tests.hs
View File

@ -23,4 +23,23 @@ tests :: TestTree
tests =
testGroup
"Checking"
[]
[
testPos (CstBool True),
testNeg (Var "x"),
testPos (Let "x" (CstInt 3) (CstInt 5)),
testPos (Let "x" (CstInt 3) (Var "x")),
testNeg (Let "x" (Var "y") (Var "x")),
testNeg (Let "x" (CstInt 3) (Var "y")),
testPos (Add (Sub (CstInt 9) (CstInt 6)) (CstInt 11)),
testPos (Mul (Div (CstInt 9) (CstInt 3)) (CstInt 1)),
testNeg (Add (Add (CstInt 1) (Var "x")) (CstInt 1)),
testPos (If (CstInt 2) (CstInt 2) (CstInt 2)),
testNeg (If (Var "x") (CstInt 2) (CstInt 2)),
testNeg (If (CstInt 2) (Var "x") (CstInt 2)),
testNeg (If (CstInt 2) (CstInt 2) (Var "x")),
testPos (Lambda "x" (CstInt 5)),
testPos (Lambda "x" (Var "x")),
testNeg (Lambda "x" (Var "y")),
testPos (Apply (Lambda "x" (Var "x")) (CstInt 5)),
testNeg (Apply (Lambda "x" (Var "x")) (Var "x"))
]