adding tests.

This commit is contained in:
Kazu Yamamoto
2013-02-12 14:06:22 +09:00
parent e42a7e8bcb
commit 418c39b759
5 changed files with 63 additions and 0 deletions

8
test/Expectation.hs Normal file
View File

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