on master help sign in
moar tests
commit5f01d4116efd590fc778a5634e9caf003311f667 authorMark Wotton <mwotton@gmail.com> dateSun 13 Sep 2020, 20:36 (6 years ago) parent9122907
1 file changed+1−1
test/Spec.hs+1−1
test/Spec.hs+1−1
@@ -24,4 +24,4 @@ main = do
2424 assert "should find nothing" =<< checkSequential (Group "Unsafe" [("Sequential", RS.prop_sequential @UnsafeIO.UnsafeApi unsafeServer)])
2525 -- this will!
2626 assert "should find with parallel check" . not
27− =<< checkSequential (Group "Unsafe" [("Parallel", RS.prop_concurrent @UnsafeIO.UnsafeApi unsafeServer)])
27+ =<< checkSequential (Group "Unsafe" [("Parallel", withTests 100000 $ RS.prop_concurrent @UnsafeIO.UnsafeApi unsafeServer)])