fix test to reflect more tables
This commit is contained in:
@@ -13,8 +13,8 @@ spec = around dbWithSchema $ beforeWith setRole $ do
|
|||||||
describe "tables" $
|
describe "tables" $
|
||||||
it "shows all the tables" $ \conn -> do
|
it "shows all the tables" $ \conn -> do
|
||||||
ts <- tables "1" conn
|
ts <- tables "1" conn
|
||||||
map tableName ts `shouldBe` ["auto_incrementing_pk","compound_pk",
|
map tableName ts `shouldBe` ["authors_only","auto_incrementing_pk",
|
||||||
"has_fk","items","menagerie","no_pk", "simple_pk"]
|
"compound_pk","has_fk","items","menagerie","no_pk", "simple_pk"]
|
||||||
|
|
||||||
describe "columns" $ do
|
describe "columns" $ do
|
||||||
it "responds with each column for the table" $ \conn -> do
|
it "responds with each column for the table" $ \conn -> do
|
||||||
@@ -33,4 +33,5 @@ spec = around dbWithSchema $ beforeWith setRole $ do
|
|||||||
foreignKeys "1" "has_fk" conn `shouldReturn` M.fromList [
|
foreignKeys "1" "has_fk" conn `shouldReturn` M.fromList [
|
||||||
("auto_inc_fk", ForeignKey {fkTable="auto_incrementing_pk", fkCol="id"}),
|
("auto_inc_fk", ForeignKey {fkTable="auto_incrementing_pk", fkCol="id"}),
|
||||||
("simple_fk", ForeignKey { fkTable="simple_pk", fkCol="k"})]
|
("simple_fk", ForeignKey { fkTable="simple_pk", fkCol="k"})]
|
||||||
|
|
||||||
where setRole conn = quickQuery conn "set role dbapi_test" [] >> return conn
|
where setRole conn = quickQuery conn "set role dbapi_test" [] >> return conn
|
||||||
|
|||||||
Reference in New Issue
Block a user