git.iko.soy/streamly
on master help sign in
Disable deintercalate tests
d134ea3Harendra Kumar
test/Streamly/Test/Data/Parser.hs+3−1
compare with master
unifiedsplit
@@ -589,6 +589,7 @@ parseManyWordQuotedBy =
589-- Right _ -> False
589-- Right _ -> False
590-- Left _ -> True)
590-- Left _ -> True)
591
591
592+{-
592deintercalate :: Property
593deintercalate :: Property
593deintercalate =
594deintercalate =
594 forAll (listOf (chooseAny :: Gen Int)) $ \ls ->
595 forAll (listOf (chooseAny :: Gen Int)) $ \ls ->
@@ -603,6 +604,7 @@ deintercalate =
603 FL.tee (fmap concat $ FL.catLefts FL.toList)
604 FL.tee (fmap concat $ FL.catLefts FL.toList)
604 (fmap concat $ FL.catRights FL.toList)
605 (fmap concat $ FL.catRights FL.toList)
605 p = P.deintercalate p1 p2 partition
606 p = P.deintercalate p1 p2 partition
607+-}
606
608
607-- shortestPass :: Property
609-- shortestPass :: Property
608-- shortestPass =
610-- shortestPass =
@@ -1201,7 +1203,7 @@ main =
1201 -- prop "" teeWithFailLeft
1203 -- prop "" teeWithFailLeft
1202 -- prop "" teeWithFailRight
1204 -- prop "" teeWithFailRight
1203 -- prop "" teeWithFailBoth
1205 -- prop "" teeWithFailBoth
1204− prop "deintercalate" deintercalate
1206+ -- prop "deintercalate" deintercalate
1205 -- prop "" shortestPass
1207 -- prop "" shortestPass
1206 -- prop "" shortestFailLeft
1208 -- prop "" shortestFailLeft
1207 -- prop "" shortestFailRight
1209 -- prop "" shortestFailRight