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

Added cpp if to check for postgres flag

Browse Source 
Added deletion of lord and deed entries to allow for a test to pass
This commit is contained in:
Fintan Halpenny 2017-08-04 14:10:24 +01:00
parent 03c9590581
commit 406c1ef46c
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

@ -645,6 +645,7 @@ main = do
#endif #endif
return () return ()
#if defined(WITH_POSTGRESQL)
it "works with now" $ it "works with now" $
run $ do run $ do
nowDb <- select $ return EP.now_ nowDb <- select $ return EP.now_
@ -659,6 +660,7 @@ main = do
-- | Get the time diff and check it's less than half a second -- | Get the time diff and check it's less than half a second
liftIO $ diffUTCTime nowUtc now `shouldSatisfy` (< halfSecond) liftIO $ diffUTCTime nowUtc now `shouldSatisfy` (< halfSecond)
#endif
it "works with round_" $ it "works with round_" $
run $ do run $ do
@ -1500,6 +1502,9 @@ cleanDB = do
delete $ from $ \(_ :: SqlExpr (Entity Follow)) -> return () delete $ from $ \(_ :: SqlExpr (Entity Follow)) -> return ()
delete $ from $ \(_ :: SqlExpr (Entity Person)) -> return () delete $ from $ \(_ :: SqlExpr (Entity Person)) -> return ()
delete $ from $ \(_ :: SqlExpr (Entity Deed)) -> return ()
delete $ from $ \(_ :: SqlExpr (Entity Lord)) -> return ()
delete $ from $ \(_ :: SqlExpr (Entity CcList)) -> return () delete $ from $ \(_ :: SqlExpr (Entity CcList)) -> return ()
delete $ from $ \(_ :: SqlExpr (Entity ArticleTag)) -> return () delete $ from $ \(_ :: SqlExpr (Entity ArticleTag)) -> return ()