Feature tests pass, unit test does not

This commit is contained in:
Joe Nelson
2014-08-23 18:08:20 -07:00
parent a3a6108d49
commit 036ffa107b
6 changed files with 27 additions and 30 deletions
+1 -5
View File
@@ -6,7 +6,7 @@ import Test.Hspec
import Database.HDBC
import PgQuery (insert)
import PgQuery (insert, getRows, RangedResult(..))
import Types (SqlRow(..))
import SpecHelper
@@ -20,7 +20,3 @@ spec = around dbWithSchema $ do
]) 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