jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

slightly more specific error check.

Browse Source
This commit is contained in:
Adam C. Baker
2014-10-01 16:19:52 -07:00
parent 5e23dfcf32
commit 4c636b5512
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Unit/PgQuerySpec.hs
+4 -3
View File
@@ -4,8 +4,8 @@ module Unit.PgQuerySpec where
import Test.Hspec import Test.Hspec
import Database.HDBC (IConnection, SqlValue, toSql, prepare, quickQuery, import Database.HDBC (IConnection, SqlValue, SqlError, toSql, prepare,
fromSql, execute, seState, fetchAllRowsAL) quickQuery, fromSql, execute, seState, fetchAllRowsAL)
import PgQuery (insert, addUser, signInRole, checkPass) import PgQuery (insert, addUser, signInRole, checkPass)
import Types (SqlRow(SqlRow)) import Types (SqlRow(SqlRow))
@@ -64,7 +64,8 @@ spec = around dbWithSchema $ do
checkPass (cs encryptedPass) pass `shouldBe` True checkPass (cs encryptedPass) pass `shouldBe` True
it "will not add a user with an unknown role" $ \conn -> do it "will not add a user with an unknown role" $ \conn -> do
addUser user pass "not-a-real-role" conn `shouldThrow` anyException addUser user pass "not-a-real-role" conn `shouldThrow` \e ->
take 2 (seState e) == "23" --integrity constraint violation
describe "signInRole" $ beforeWith (\conn -> do describe "signInRole" $ beforeWith (\conn -> do
addUser user pass role conn addUser user pass role conn