ghc-mod/test/Expectation.hs
2013-02-12 16:24:33 +09:00

16 lines
480 B
Haskell

module Expectation where
import Test.Hspec
import System.Directory
import Control.Exception as E
shouldContain :: Eq a => [a] -> a -> Expectation
shouldContain containers element = do
let res = element `elem` containers
res `shouldBe` True
withDirectory :: FilePath -> IO a -> IO a
withDirectory dir action = bracket getCurrentDirectory
setCurrentDirectory
(\_ -> setCurrentDirectory dir >> action)