From b78d4f28adee1d0dab1dd7626650a3c767cd7cb8 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Mon, 12 Sep 2022 08:01:09 +0100
Subject: Some checks

---
 test/Language.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'test/Language.hs')

diff --git a/test/Language.hs b/test/Language.hs
index 6e15525..84c10b4 100644
--- a/test/Language.hs
+++ b/test/Language.hs
@@ -416,6 +416,14 @@ testCaseE17 =
         \1 + false;\n"
         E.TypeError
 
+testCaseE18 =
+  TestLabel "div by 0" $
+    TestCase $
+      expectError
+        "module main\n\
+        \1 / 0;\n"
+        E.InvalidOperation
+
 language =
   [ testCase2,
     testCase3,
@@ -452,5 +460,6 @@ language =
     testCaseE14,
     testCaseE15,
     testCaseE16,
-    testCaseE17
+    testCaseE17,
+    testCaseE18
   ]
-- 
cgit v1.2.3