module Test.Hspec.Monadic (
Spec
, Example
, describe
, context
, it
, pending
, hspec
, Summary (..)
, runSpecM
, fromSpecList
, Specs
, descriptions
, hspecB
, hspecX
, hHspec
) where
import System.IO
import Control.Applicative
import Test.Hspec.Core (runSpecM, fromSpecList)
import Test.Hspec.Runner
import Test.Hspec
type Specs = Spec
descriptions :: [Spec] -> Spec
descriptions = sequence_
hspecX :: Spec -> IO ()
hspecX = hspec
hspecB :: Spec -> IO Bool
hspecB spec = (== 0) . summaryFailures <$> hspecWith defaultConfig spec
hHspec :: Handle -> Spec -> IO Summary
hHspec h = hspecWith defaultConfig {configHandle = Left h}