From 80d3e7c9cd6b2cf75ae76812d64fbe3f91927a06 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Sun, 13 Apr 2014 23:55:13 -0300
Subject: [PATCH] Lower the chance of false negatives even more.

---
 test/Test.hs | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/test/Test.hs b/test/Test.hs
index 5cc2007..b6c0193 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -798,14 +798,15 @@ main = do
     describe "rand works" $ do
       it "returns result in random order" $
         run $ do
-          _ <- insert p1
-          _ <- insert p2
-          _ <- insert p3
-          _ <- insert p4
-          _ <- insert $ Person "Jane"  Nothing
-          _ <- insert $ Person "Mark"  Nothing
-          _ <- insert $ Person "Sarah" Nothing
-          _ <- insert $ Person "Paul"  Nothing
+          replicateM_ 20 $ do
+            _ <- insert p1
+            _ <- insert p2
+            _ <- insert p3
+            _ <- insert p4
+            _ <- insert $ Person "Jane"  Nothing
+            _ <- insert $ Person "Mark"  Nothing
+            _ <- insert $ Person "Sarah" Nothing
+            insert $ Person "Paul"  Nothing
           ret1 <- fmap (map unValue) $ select $ from $ \p -> do
                     orderBy [rand]
                     return (p ^. PersonId)