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/Core/ParseSpec.hs
+++ b/tst/Core/ParseSpec.hs
@@ -17,9 +17,10 @@ import Test.QuickCheck

 spec :: Spec
 spec = do
-    it "should be a right-inverse to the unparser\
+    it "should be a right-inverse to the unparser \
        \up to source code congruency" $
-        property $ \p -> (unparse <=< parse) p ~== Right p
+        withMaxSuccess 20 $ property $
+            \p -> (unparse <=< parse) p ~== Right p

    -- TODO: abitrary ASTs
    -- it "should be a right-inverse to the unparser\