div zero

src/Core/Examples.hs

@@ -7,6 +7,7 @@ Description : Core examples (may eventually be unit tests)
 module Core.Examples
     ( fac3
     , sumList
+    , constDivZero
     ) where
 ----------------------------------------------------------------------------------
 import Core.Syntax
@@ -174,6 +175,12 @@ sumList = [coreProg|
         main = sum list;
     |]
 
+constDivZero :: Program'
+constDivZero = [coreProg|
+        k x y = x;
+        main = k 3 ((/#) 1 0);
+    |]
+
 corePrelude :: Module Name
 corePrelude = Module (Just ("Prelude", [])) $
     -- non-primitive defs

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)
+