From 83a70343afa5d20aa2ffb7ae3d0281fdeca82f03 Mon Sep 17 00:00:00 2001 From: Joe Nelson Date: Sat, 23 Aug 2014 18:08:54 -0700 Subject: [PATCH] Remove unit test for now --- test/Unit/PgQuerySpec.hs | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100644 test/Unit/PgQuerySpec.hs diff --git a/test/Unit/PgQuerySpec.hs b/test/Unit/PgQuerySpec.hs deleted file mode 100644 index 9bc40d692..000000000 --- a/test/Unit/PgQuerySpec.hs +++ /dev/null @@ -1,22 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} - -module Unit.PgQuerySpec where - -import Test.Hspec - -import Database.HDBC - -import PgQuery (insert, getRows, RangedResult(..)) -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 that isn't null" :: String)) - ]) conn - r <- quickQuery conn "select count(1) from auto_incrementing_pk" [] - [[toSql (1 :: Int)]] `shouldBe` r