trivial test change to illustrate alternative to pick

2014-11-11 21:29:40 -08:00
parent 7bbeeb7c61
commit 2b76c87d1d
1 changed files with 2 additions and 3 deletions
@@ -86,9 +86,8 @@ spec = around dbWithSchema $ do
      signInRole user (pass <> "crap") conn `shouldReturn` LoginFailed

  describe "pgFmtIdent" $
-    it "Does what format %I would do" $ \conn ->
-      property $ monadicIO $ do
-        fuzz <- pick arbitrary
+    it "Does what format %I would do" $ \conn -> property $ \fuzz ->
+      monadicIO $ do
        [[row]] <- run $ quickALQuery conn "select format('%I', ? :: varchar)" [toSql (fuzz :: String)]
        assert $ fromSql (snd row) == pgFmtIdent (cs fuzz)