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

Fix test suite compilation for PostgreSQL.

Browse Source
This commit is contained in:
Felipe Lessa 2015-04-27 23:55:48 -03:00
parent c8ee46f702
commit dfacfcecf6
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/Test.hs
View File

@ -836,10 +836,11 @@ main = do
#if defined(WITH_POSTGRESQL) || defined(WITH_MYSQL) #if defined(WITH_POSTGRESQL) || defined(WITH_MYSQL)
it "works on PostgreSQL and MySQL with <2 arguments" $ it "works on PostgreSQL and MySQL with <2 arguments" $
run $ do run $ do
_ :: [Value (Maybe Int)] <- select $ _ :: [Value (Maybe Int)] <-
from $ \p -> do select $
return (coalesce [p ^. PersonAge]) from $ \p -> do
return True return (coalesce [p ^. PersonAge])
return ()
#else #else
it "throws an exception on SQLite with <2 arguments" $ it "throws an exception on SQLite with <2 arguments" $
run (select $ run (select $