composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-11 11:37:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add the ordered option in Async tests

Browse Source
This commit is contained in:
Harendra Kumar 2022-10-10 01:12:59 +05:30
parent 8e4f8b2d56
commit edc9d3ad8f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/Streamly/Test/Data/Stream/Async.hs
View File

@ -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 []