haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

One more test.

Browse Source
This commit is contained in:
Felipe Lessa 2012-09-04 01:10:01 -03:00
parent a02c68d3bf
commit 15121a7d27
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/Test.hs
View File

@ -106,6 +106,16 @@ main = do
where_ (p ^. PersonName ==. val "John") where_ (p ^. PersonName ==. val "John")
return p return p
liftIO $ ret `shouldBe` [ Entity p1k p1 ] liftIO $ ret `shouldBe` [ Entity p1k p1 ]
it "works for a simple example with (==.) and (||.)" $
run $ do
p1k <- insert p1
p2k <- insert p2
_ <- insert p3
ret <- select $
from $ \p -> do
where_ (p ^. PersonName ==. val "John" ||. p ^. PersonName ==. val "Rachel")
return p
liftIO $ ret `shouldBe` [ Entity p1k p1, Entity p2k p2 ]
it "works for a simple example with (>.)" $ it "works for a simple example with (>.)" $
run $ do run $ do
p1k <- insert p1 p1k <- insert p1