Tests compile, run, and fail

Temporarily disabled unit tests

test/Main.hs

@@ -1,6 +1,6 @@
 module Main where
 
-import Database.HDBC (runRaw, disconnect)
+import Database.PostgreSQL.Simple
 import Test.Hspec
 import Spec
 import SpecHelper (openConnection, loadFixture)
@@ -8,10 +8,10 @@ import SpecHelper (openConnection, loadFixture)
 main :: IO ()
 main = do
   c <-openConnection
-  runRaw c "drop schema if exists \"1\" cascade"
-  runRaw c "drop schema if exists private cascade"
-  runRaw c "drop schema if exists dbapi cascade"
+  _ <- execute_ c "drop schema if exists \"1\" cascade"
+  _ <- execute_ c "drop schema if exists private cascade"
+  _ <- execute_ c "drop schema if exists dbapi cascade"
   loadFixture "roles" c
   loadFixture "schema" c
-  disconnect c
+  close c
   hspec spec