div zero

2023-12-14 13:22:50 -07:00
parent 5ea629a439
commit f2b6e43d59
2 changed files with 10 additions and 0 deletions
--- a/tst/GMSpec.hs
+++ b/tst/GMSpec.hs
@@ -33,3 +33,6 @@ spec = do
        it "sum [1,2,3]" $ do
            resultOf Ex.sumList `shouldBe` Just (NNum 6)

+        it "k 3 ((/#) 1 0)" $ do
+            resultOf Ex.constDivZero `shouldBe` Just (NNum 3)
+