From b0974a4e36f41a443957fb20f042bde9679301aa Mon Sep 17 00:00:00 2001 From: Joe Nelson Date: Mon, 22 Feb 2016 17:50:00 -0800 Subject: [PATCH] Reset db between each test suite --- test/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Main.hs b/test/Main.hs index 01416a100..c4abe2177 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -29,7 +29,7 @@ main = do let dbStructure = either (error.show) id result withApp = return $ postgrest testCfg dbStructure pool - hspec . sequence_ . map (before withApp) $ specs + hspec . mapM_ (beforeAll_ resetDb . before withApp) $ specs where specs = map (uncurry describe) [