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

Add failing test for returning () in a pair.

Browse Source
This commit is contained in:
Felipe Lessa 2013-05-14 19:33:54 -03:00
parent 1e633a8dd9
commit fee867165b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Test.hs
View File

@ -55,6 +55,11 @@ main = do
ret <- select $ return $ val (3 :: Int)
liftIO $ ret `shouldBe` [ Value 3 ]
it "works for a pair of a single value and ()" $
run $ do
ret <- select $ return (val (3 :: Int), ())
liftIO $ ret `shouldBe` [ (Value 3, ()) ]
it "works for a single NULL value" $
run $ do
ret <- select $ return $ nothing