Speed up tests

NoRedInk · Sep 22, 2021 · 0036cbe · 0036cbe
1 parent ad7d32a
commit 0036cbe
Showing 1 changed file with 6 additions and 9 deletions.
diff --git a/test/Main.hs b/test/Main.hs
@@ -1,5 +1,6 @@
 module Main (main) where
 
+import qualified Control.Concurrent.Async as Async
 import qualified Data.Text.IO
 import qualified Expect
 import qualified Haskell.Verified.Examples as HVE
@@ -125,17 +126,13 @@ tests =
             results <-
               assets
                 |> List.map ("test/assets/" ++)
-                |> Prelude.traverse
+                |> Async.mapConcurrently
                   ( \modulePath -> do
-                      parsed <-
-                        HVE.parse modulePath
-                          |> Expect.fromIO
-                      result <-
-                        parsed
-                          |> HVE.verify
-                          |> Expect.fromIO
-                      Expect.fromResult (Ok (HVE.moduleInfo parsed, result))
+                      parsed <- HVE.parse modulePath
+                      result <- HVE.verify parsed
+                      Prelude.pure (HVE.moduleInfo parsed, result)
                   )
+                |> Expect.fromIO
             contents <-
               withTempFile (\handle -> Reporter.Stdout.report handle results)
             contents