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