Lower the chance of false negatives even more.

prowdsponsor · Apr 14, 2014 · 80d3e7c · 80d3e7c
1 parent 0f9a044
commit 80d3e7c
Showing 1 changed file with 9 additions and 8 deletions.
diff --git 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)