24 lines
806 B
Haskell
24 lines
806 B
Haskell
module Test.Main where
|
|
|
|
import Prelude
|
|
|
|
import Data.Maybe (Maybe(..))
|
|
import Effect (Effect)
|
|
import Effect.Aff (launchAff_)
|
|
import Effect.Aff as Aff
|
|
import Test.Spec (it)
|
|
import Test.Spec.Reporter (specReporter)
|
|
import Test.Spec.Runner (defaultConfig, runSpec')
|
|
import Test.Threading.Barrier as Test.Threading.Barrier
|
|
import Test.Threading.Channel as Test.Threading.Channel
|
|
import Test.Threading.Data.Mutex as Test.Threading.Data.Mutex
|
|
import Test.Threading.Data.RWLock as Test.Threading.Data.RWLock
|
|
|
|
main :: Effect Unit
|
|
main = launchAff_ $ Aff.supervise $ runSpec' (defaultConfig { failFast = true, timeout = Nothing }) [ specReporter ] do
|
|
Test.Threading.Data.Mutex.spec
|
|
Test.Threading.Data.RWLock.spec
|
|
Test.Threading.Channel.spec
|
|
Test.Threading.Barrier.spec
|
|
it "all tests were run" $ pure unit
|