22 lines
561 B
Haskell
22 lines
561 B
Haskell
{-# 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
|