git.iko.soy/streamly
on master help sign in
increase the delay in concurrent ordering tests
0b6d7a2Harendra Kumar
test/Main.hs+1−1
compare with master
unifiedsplit
@@ -602,7 +602,7 @@ parallelCheck t f = do
602 (S.toList . t) (event 4 `f` (event 3 `f` (event 2 `f` event 1)))
602 (S.toList . t) (event 4 `f` (event 3 `f` (event 2 `f` event 1)))
603 `shouldReturn` ([1..4])
603 `shouldReturn` ([1..4])
604
604
605− where event n = (S.yieldM $ threadDelay (n * 100000)) >> (return n)
605+ where event n = (S.yieldM $ threadDelay (n * 200000)) >> (return n)
606
606
607compose :: (IsStream t, Semigroup (t IO Int))
607compose :: (IsStream t, Semigroup (t IO Int))
608 => (t IO Int -> SerialT IO Int) -> t IO Int -> ([Int] -> [Int]) -> Spec
608 => (t IO Int -> SerialT IO Int) -> t IO Int -> ([Int] -> [Int]) -> Spec