increase the delay in concurrent ordering tests
commit0b6d7a22d7b66fb51fa28f469ee3f5e01535fee7
authorHarendra Kumar <harendra.kumar@gmail.com>
dateSat 23 Jun 2018, 17:31 (8 years ago)
parent341fd82
test/Main.hs+1−1
@@ -602,7 +602,7 @@ parallelCheck t f = do
602602 (S.toList . t) (event 4 `f` (event 3 `f` (event 2 `f` event 1)))
603603 `shouldReturn` ([1..4])
604604
605− where event n = (S.yieldM $ threadDelay (n * 100000)) >> (return n)
605+ where event n = (S.yieldM $ threadDelay (n * 200000)) >> (return n)
606606
607607compose :: (IsStream t, Semigroup (t IO Int))
608608 => (t IO Int -> SerialT IO Int) -> t IO Int -> ([Int] -> [Int]) -> Spec