Use version number for schema in tests like anticipated use case

test/Unit/PgQuerySpec.hs

@@ -0,0 +1,36 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Unit.PgQuerySpec where
+
+import Test.Hspec
+
+import Database.HDBC
+import Database.HDBC.PostgreSQL
+
+import PgQuery (insert)
+import Types (SqlRow(..))
+
+loadFixture :: String -> IO Connection
+loadFixture name = do
+  conn <- connectPostgreSQL "postgres://postgres:@localhost:5432/dbapi_test"
+  sql <- readFile $ "test/fixtures/" ++ name ++ ".sql"
+  runRaw conn "drop schema if exists \"1\" cascade"
+  runRaw conn sql
+  return conn
+
+main :: IO ()
+main = hspec spec
+
+spec :: Spec
+spec = beforeAll (loadFixture "schema") $ do
+  describe "insert" $
+    it "can insert into an empty table" $ \conn -> do
+      _ <- insert 1 "auto_incrementing_pk" (SqlRow [
+          ("non_nullable_string", toSql ("a string that isn't null" :: String))
+        ]) conn
+      r <- quickQuery conn "select count(1) from auto_incrementing_pk" []
+      [[toSql (1 :: Int)]] `shouldBe` r
+
+  describe "insert again" $
+    it "is true" $ \_ ->
+      True `shouldBe` True