mirror of
https://github.com/composewell/streamly.git
synced 2024-09-11 11:37:22 +03:00
Add the ordered option in Async tests
This commit is contained in:
parent
8e4f8b2d56
commit
edc9d3ad8f
@ -83,6 +83,8 @@ commonOpConfigs =
|
||||
, ("maxThreads 0", Async.maxThreads 0)
|
||||
, ("maxThreads 1", Async.maxThreads 1)
|
||||
, ("eagerEval", Async.eagerEval)
|
||||
-- XXX Need to use an unsorted eq operation for ahead
|
||||
, ("ordered", Async.ordered)
|
||||
#ifdef USE_LARGE_MEMORY
|
||||
, ("maxThreads -1", Async.maxThreads (-1))
|
||||
#endif
|
||||
@ -238,6 +240,7 @@ main = hspec
|
||||
prop "mapM (+1)" $
|
||||
transform (fmap (+1)) (Async.mapM (\x -> return (x + 1)))
|
||||
|
||||
-- XXX Need to use eq instead of sortEq for ahead oeprations
|
||||
-- Binary append
|
||||
prop1 "append [] []"
|
||||
$ cmp (Stream.nil `Async.append` Stream.nil) sortEq []
|
||||
|
Loading…
Reference in New Issue
Block a user