Feature tests pass, unit test does not

2014-08-23 18:08:20 -07:00
parent a3a6108d49
commit 036ffa107b
6 changed files with 27 additions and 30 deletions
@@ -1,10 +1,14 @@
 module Main where

+import Database.HDBC (runRaw, disconnect)
 import Test.Hspec
 import Spec
+import SpecHelper (openConnection, loadFixture)

 main :: IO ()
 main = do
-  putStrLn "before spec"
+  c <-openConnection
+  runRaw c "drop schema if exists \"1\" cascade"
+  loadFixture "schema" c
+  disconnect c
  hspec spec
-  putStrLn "after spec"