From 406c1ef46cbde9a2a79bef27eed7a5961d1d3220 Mon Sep 17 00:00:00 2001 From: Fintan Halpenny Date: Fri, 4 Aug 2017 14:10:24 +0100 Subject: [PATCH] Added cpp if to check for postgres flag Added deletion of lord and deed entries to allow for a test to pass --- test/Test.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/test/Test.hs b/test/Test.hs index b4e7386..0e09d45 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -645,6 +645,7 @@ main = do #endif return () +#if defined(WITH_POSTGRESQL) it "works with now" $ run $ do nowDb <- select $ return EP.now_ @@ -659,6 +660,7 @@ main = do -- | Get the time diff and check it's less than half a second liftIO $ diffUTCTime nowUtc now `shouldSatisfy` (< halfSecond) +#endif it "works with round_" $ run $ do @@ -1500,6 +1502,9 @@ cleanDB = do delete $ from $ \(_ :: SqlExpr (Entity Follow)) -> 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 ArticleTag)) -> return ()