adding tests.
This commit is contained in:
8
test/Expectation.hs
Normal file
8
test/Expectation.hs
Normal 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
|
||||
Reference in New Issue
Block a user