@@ -38,10 +38,10 @@ main = do
39 allTests = concat
39 allTests = concat
40 [ makeGroup "micro" Micro.testCases
40 [ makeGroup "micro" Micro.testCases
41− -- , makeGroup "subscribing (100,40)" (Focused.subscribing 100 40)
41+ , makeGroup "subscribing (100,40)" (Focused.subscribing 100 40)
42− -- , makeGroup "firing 1000" (Focused.firing 1000)
42+ , makeGroup "firing 1000" (Focused.firing 1000)
43− -- , makeGroup "merge 100" (Focused.merging 100)
43+ , makeGroup "merge 100" (Focused.merging 100)
44− -- , makeGroup "fan 50" (Focused.fans 50)
44+ , makeGroup "fan 50" (Focused.fans 50)
47 makeGroup name tests = first (\test -> intercalate "/" [name, test]) <$> tests
47 makeGroup name tests = first (\test -> intercalate "/" [name, test]) <$> tests