45 lines
1.4 KiB
Haskell
45 lines
1.4 KiB
Haskell
module Test.Main where
|
|
|
|
import Prelude
|
|
|
|
import Data.Array as Array
|
|
import Data.Filterable (filterMap)
|
|
import Data.Foldable (foldl)
|
|
import Data.Maybe (Maybe(..), fromMaybe)
|
|
import Effect (Effect, foreachE)
|
|
import Effect.Aff (Aff, launchAff_)
|
|
import Effect.Class (liftEffect)
|
|
import Effect.Exception (Error)
|
|
import Effect.Exception as Error
|
|
import Node.Encoding (Encoding(..))
|
|
import Node.Process as Process
|
|
import Node.Stream as Writable
|
|
import Puppeteer.Spec as Spec
|
|
import Test.Spec.Config (defaultConfig)
|
|
import Test.Spec.Reporter (consoleReporter)
|
|
import Test.Spec.Result (Result(..))
|
|
import Test.Spec.Runner (runSpecT)
|
|
import Dotenv as Dotenv
|
|
|
|
foreign import errorString :: Error -> Effect String
|
|
|
|
main :: Effect Unit
|
|
main = launchAff_ do
|
|
Dotenv.loadFile
|
|
let cfg = defaultConfig { timeout = Nothing, exit = false }
|
|
run <- liftEffect $ runSpecT cfg [ consoleReporter ] Spec.spec
|
|
res <- (map (join <<< map (foldl Array.snoc [])) run) :: Aff (Array Result)
|
|
let
|
|
getError = case _ of
|
|
Failure e -> Just e
|
|
_ -> Nothing
|
|
let errs = filterMap getError res
|
|
liftEffect $ foreachE errs \e -> do
|
|
_ <- Writable.writeString Process.stdout UTF8 $ Error.message e
|
|
_ <- Writable.writeString Process.stdout UTF8 "\n"
|
|
_ <- Writable.writeString Process.stdout UTF8 $ fromMaybe "" $ Error.stack e
|
|
_ <- Writable.writeString Process.stdout UTF8 "\n"
|
|
pure unit
|
|
|
|
liftEffect $ Process.exit
|