Rescue unit test

test/Unit/PgQuerySpec.hs

@@ -0,0 +1,21 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Unit.PgQuerySpec where
+
+import Test.Hspec
+
+import Database.HDBC (toSql, quickQuery)
+
+import PgQuery (insert)
+import Types (SqlRow(..))
+
+import SpecHelper
+
+spec :: Spec
+spec = around dbWithSchema $ do
+  describe "insert" $
+    it "can insert into an empty table" $ \conn -> do
+      _ <- insert 1 "auto_incrementing_pk" (SqlRow [
+          ("non_nullable_string", toSql ("a string"::String))]) conn
+      r <- quickQuery conn "select count(1) from \"1\".auto_incrementing_pk" []
+      [[toSql (1 :: Int)]] `shouldBe` r