remote: parallel tests

This commit is contained in:
Richard Marko 2023-11-23 17:57:44 +01:00 committed by sorki
parent 0a0e4a6793
commit 25bd0f104c
2 changed files with 3 additions and 3 deletions

View File

@ -121,7 +121,7 @@ test-suite remote
type: exitcode-stdio-1.0
main-is: Driver.hs
hs-source-dirs: tests
ghc-options: -Wall
ghc-options: -Wall -threaded -rtsopts "-with-rtsopts -N"
other-modules:
SerializeSpec
build-tool-depends:

View File

@ -9,7 +9,7 @@ import Data.Serialize.Get (Get, runGet)
import Data.Serialize.Put (Putter, runPut)
import Data.Text (Text)
import Data.Time (NominalDiffTime)
import Test.Hspec (Expectation, Spec, describe, it, shouldBe)
import Test.Hspec (Expectation, Spec, describe, it, parallel, shouldBe)
import Test.Hspec.QuickCheck (prop)
import Test.Hspec.Nix (roundtrips)
import Test.QuickCheck (arbitrary, forAll, suchThat)
@ -56,7 +56,7 @@ roundtripS =
(runGet get)
spec :: Spec
spec = do
spec = parallel $ do
describe "Prim" $ do
prop "Int" $ roundtrips2 putInt getInt
prop "Bool" $ roundtrips2 putBool getBool