From d021a8184ce6244198435b276738b9cd824c6ad8 Mon Sep 17 00:00:00 2001
From: Erik de Castro Lopo <erikd@mega-nerd.com>
Date: Fri, 11 Apr 2014 14:35:12 +1000
Subject: [PATCH] Test.hs : Reduce chance of 'orderBy [rand]' randomly failing.

---
 test/Test.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test/Test.hs b/test/Test.hs
index e1f3152..5cc2007 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -802,6 +802,10 @@ main = do
           _ <- 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)