hpath/test/Main.hs

24 lines
386 B
Haskell
Raw Permalink Normal View History

2016-05-09 14:53:31 +00:00
{-# LANGUAGE OverloadedStrings #-}
import Test.Hspec
import Test.Hspec.Runner
import Test.Hspec.Formatters
import qualified Spec
import Utils
-- TODO: chardev, blockdev, namedpipe, socket
main :: IO ()
main =
hspecWith
2016-05-29 15:32:22 +00:00
defaultConfig { configFormatter = Just progress }
$ before_ up
$ after_ down
$ Spec.spec
2016-05-09 14:53:31 +00:00
where
up = createTmpDir
down = deleteTmpDir
2016-05-09 14:53:31 +00:00