idCase test

2023-12-14 14:04:51 -07:00
parent eaac7ad7a3
commit 1d5af748b3
3 changed files with 14 additions and 2 deletions
--- a/tst/GMSpec.hs
+++ b/tst/GMSpec.hs
@@ -36,3 +36,6 @@ spec = do
        it "k 3 ((/#) 1 0)" $ do
            resultOf Ex.constDivZero `shouldBe` Just (NNum 3)

+        it "id (case ... of { ... })" $ do
+            resultOf Ex.idCase `shouldBe` Just (NNum 5)
+