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

trivial test change to illustrate alternative to pick

Browse Source
This commit is contained in:
Adam C. Baker
2014-11-11 21:29:40 -08:00
parent 7bbeeb7c61
commit 2b76c87d1d
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Unit/PgQuerySpec.hs
+2 -3
View File
@@ -86,9 +86,8 @@ spec = around dbWithSchema $ do
signInRole user (pass <> "crap") conn `shouldReturn` LoginFailed signInRole user (pass <> "crap") conn `shouldReturn` LoginFailed
describe "pgFmtIdent" $ describe "pgFmtIdent" $
it "Does what format %I would do" $ \conn -> it "Does what format %I would do" $ \conn -> property $ \fuzz ->
property $ monadicIO $ do monadicIO $ do
fuzz <- pick arbitrary
[[row]] <- run $ quickALQuery conn "select format('%I', ? :: varchar)" [toSql (fuzz :: String)] [[row]] <- run $ quickALQuery conn "select format('%I', ? :: varchar)" [toSql (fuzz :: String)]
assert $ fromSql (snd row) == pgFmtIdent (cs fuzz) assert $ fromSql (snd row) == pgFmtIdent (cs fuzz)