Run specs in parallel

Author: Widdershin

test/HaskellSyntaxSpec.hs

@@ -35,7 +35,7 @@ propParseAndPrint m =
         Left _ -> False
 
 haskellSyntaxSpecs :: SpecWith ()
-haskellSyntaxSpecs =
+haskellSyntaxSpecs = parallel $ do
   describe "Forest haskell syntax" $ do
     it "parses a module with multiple assignments" $ do
       code <- readFixture "multiple-assignments"

test/SampleSpec.hs

@@ -32,7 +32,7 @@ validSampleSpecs = do
     filter (not . isPrefixOf ".") <$>
     getDirectoryContents "./test/samples/valid"
   specs <- foldl1 (flip (>>)) <$> mapM testFileIsValid files
-  return $ describe "valid samples" specs
+  return $ parallel $ describe "valid samples" specs
   where
     testFileIsValid :: FilePath -> IO (SpecWith ())
     testFileIsValid path = do

test/TypeCheckerSpec.hs

@@ -221,7 +221,7 @@ typeCheckerSpecs =
         case r of
           Right m -> () <$ checkModule m
           Left err -> error $ "Failed to parse module: " ++ show err
-   in describe "Type checker" $ do
+   in parallel $ describe "Type checker" $ do
         it "checks valid expressions" $
           checkResult (parseModule valid) `shouldBe` Right ()
         it "checks valid expressions that use locals" $

test/WasmSpec.hs

@@ -44,7 +44,7 @@ propCodeThatTypeChecksShouldCompile m =
 
 wasmSpecs :: SpecWith ()
 wasmSpecs =
-  describe "wasm code generation" $
+  parallel $ describe "wasm code generation" $
   it "generates valid wasm for any well typed module" $
   withMaxSuccess
     1000