@@ -83,6 +83,8 @@ commonOpConfigs =
83 , ("maxThreads 0", Async.maxThreads 0)
83 , ("maxThreads 0", Async.maxThreads 0)
84 , ("maxThreads 1", Async.maxThreads 1)
84 , ("maxThreads 1", Async.maxThreads 1)
85 , ("eagerEval", Async.eagerEval)
85 , ("eagerEval", Async.eagerEval)
86+ -- XXX Need to use an unsorted eq operation for ahead
87+ , ("ordered", Async.ordered)
86#ifdef USE_LARGE_MEMORY
88#ifdef USE_LARGE_MEMORY
87 , ("maxThreads -1", Async.maxThreads (-1))
89 , ("maxThreads -1", Async.maxThreads (-1))
@@ -238,6 +240,7 @@ main = hspec
238 prop "mapM (+1)" $
240 prop "mapM (+1)" $
239 transform (fmap (+1)) (Async.mapM (\x -> return (x + 1)))
241 transform (fmap (+1)) (Async.mapM (\x -> return (x + 1)))
243+ -- XXX Need to use eq instead of sortEq for ahead oeprations
241 -- Binary append
244 -- Binary append
242 prop1 "append [] []"
245 prop1 "append [] []"
243 $ cmp (Stream.nil `Async.append` Stream.nil) sortEq []
246 $ cmp (Stream.nil `Async.append` Stream.nil) sortEq []