on develop help sign in
Uncomment mistake
147ba41Oliver Batchelor
test/semantics.hs+4−4
@@ -38,10 +38,10 @@ main = do
38 where
38 where
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)
45 ]
45 ]
46
46
47 makeGroup name tests = first (\test -> intercalate "/" [name, test]) <$> tests
47 makeGroup name tests = first (\test -> intercalate "/" [name, test]) <$> tests