🔑 key-value pairs

2024-09-20 13:10:36 +02:00
parent baf70f9d31
commit 234ec39985
4 changed files with 37 additions and 6 deletions
--- a/a2/a2-handout/src/APL/Eval_Tests.hs
+++ b/a2/a2-handout/src/APL/Eval_Tests.hs
@ -92,7 +92,17 @@ evalTests =
      testCase "PrintFun" $
        eval'
          (Print "Test" (Lambda "x" (Mul (Var "x") (Var "x"))))
-          @?= (["Test: #<fun>"], Right (ValFun [] "x" (Mul (Var "x") (Var "x"))))
+          @?= (["Test: #<fun>"], Right (ValFun [] "x" (Mul (Var "x") (Var "x")))),
+      --
+      testCase "KvPut" $
+        eval'
+          (KvPut (CstInt 1) (CstInt 2))
+          @?= ([], Right (ValInt 2)),
+      --
+      testCase "KvGet" $
+        eval'
+          (Let "x" (KvPut (CstInt 0) (CstBool True)) (Let "y" (KvPut (CstInt 0) (CstBool False)) (KvGet (CstInt 0))))
+          @?= ([], Right (ValBool False))
    ]

 tests :: TestTree