diff --git a/test/Unit/PgQuerySpec.hs b/test/Unit/PgQuerySpec.hs index 87ad0a96e..82c20bc92 100644 --- a/test/Unit/PgQuerySpec.hs +++ b/test/Unit/PgQuerySpec.hs @@ -63,7 +63,7 @@ spec = around dbWithSchema $ do cs newRole `shouldBe` role 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 -> addUser user pass "not-a-real-role" conn `shouldThrow` \e -> take 2 (seState e) == "23" --integrity constraint violation