ghc-mod/test/Expectation.hs
2013-02-12 14:06:22 +09:00

9 lines
196 B
Haskell

module Expectation where
import Test.Hspec
shouldContain :: Eq a => [a] -> a -> Expectation
shouldContain containers element = do
let res = element `elem` containers
res `shouldBe` True