this sucks lol

2023-12-29 22:29:04 -07:00
parent d3a25742f1
commit a6ff46e2bf
4 changed files with 18 additions and 8 deletions
--- a/tst/GMSpec.hs
+++ b/tst/GMSpec.hs
@@ -21,7 +21,7 @@ spec = do
        resultOf [coreProg|id x = x; main = (id (-#)) 3 2;|] `shouldBe` Just (NNum 1)

    it "should correctly evaluate arbitrary arithmetic" $ do
-        property $ \e ->
+        withMaxSuccess 40 $ property $ \e ->
            let arithRes = Just (evalArith e)
                coreRes  = evalCore e
            in coreRes `shouldBe` arithRes