git.iko.soy/roboservant
on master help sign in
moar tests
5f01d41Mark Wotton
test/Spec.hs+1−1
compare with master
unifiedsplit
@@ -24,4 +24,4 @@ main = do
24 assert "should find nothing" =<< checkSequential (Group "Unsafe" [("Sequential", RS.prop_sequential @UnsafeIO.UnsafeApi unsafeServer)])
24 assert "should find nothing" =<< checkSequential (Group "Unsafe" [("Sequential", RS.prop_sequential @UnsafeIO.UnsafeApi unsafeServer)])
25 -- this will!
25 -- this will!
26 assert "should find with parallel check" . not
26 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)])