on master help sign in
remove incorrect test for WAsync
09fcf27Harendra Kumar
test/Main.hs+8−7
@@ -96,20 +96,21 @@ main = hspec $ do
96 -- for Monoid that is using the right version of semigroup. Instance
96 -- for Monoid that is using the right version of semigroup. Instance
97 -- deriving can cause us to pick wrong instances sometimes.
97 -- deriving can cause us to pick wrong instances sometimes.
98
98
99− describe "Serial interleaved (<>) ordering check" $ interleaveCheck wSerially (<>)
99+ describe "WSerial interleaved (<>) ordering check" $ interleaveCheck wSerially (<>)
100− describe "Serial interleaved mappend ordering check" $ interleaveCheck wSerially mappend
100+ describe "WSerial interleaved mappend ordering check" $ interleaveCheck wSerially mappend
101
101
102− describe "Parallel interleaved (<>) ordering check" $ interleaveCheck wAsyncly (<>)
102+ -- describe "WAsync interleaved (<>) ordering check" $ interleaveCheck wAsyncly (<>)
103− describe "Parallel interleaved mappend ordering check" $ interleaveCheck wAsyncly mappend
104−
105− -- describe "Parallel (<>) ordering check" $ interleaveCheck parallely (<>)
106− -- describe "Parallel mappend ordering check" $ interleaveCheck parallely mappend
103+ -- describe "WAsync interleaved mappend ordering check" $ interleaveCheck wAsyncly mappend
107
104
108 describe "Async (<>) time order check" $ parallelCheck asyncly (<>)
105 describe "Async (<>) time order check" $ parallelCheck asyncly (<>)
109 describe "Async mappend time order check" $ parallelCheck asyncly mappend
106 describe "Async mappend time order check" $ parallelCheck asyncly mappend
107+
110 describe "WAsync (<>) time order check" $ parallelCheck wAsyncly (<>)
108 describe "WAsync (<>) time order check" $ parallelCheck wAsyncly (<>)
111 describe "WAsync mappend time order check" $ parallelCheck wAsyncly mappend
109 describe "WAsync mappend time order check" $ parallelCheck wAsyncly mappend
112
110
111+ describe "Parallel (<>) time order check" $ parallelCheck parallely (<>)
112+ describe "Parallel mappend time order check" $ parallelCheck parallely mappend
113+
113 ---------------------------------------------------------------------------
114 ---------------------------------------------------------------------------
114 -- Monoidal Compositions, multiset equality checks
115 -- Monoidal Compositions, multiset equality checks
115 ---------------------------------------------------------------------------
116 ---------------------------------------------------------------------------