msyds/rlp
1
0 Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

idCase test

Browse Source
This commit is contained in:
crumbtoo committed 2023-12-14 14:04:51 -07:00
1 parent eaac7ad7a3
commit 1d5af748b3
3 files changed
+14 -2
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

tst/GMSpec.hs
+3
View File
@@ -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)