From a3228ebcb559684bd0666e09237b11630d09e84a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 22 Sep 2009 18:12:28 -0700
Subject: [PATCH] Adjust test to work more than 1 time.

---
 t/Asset/Wobject/DataForm/viewList.t | 33 +++++++++++++++--------------
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/t/Asset/Wobject/DataForm/viewList.t b/t/Asset/Wobject/DataForm/viewList.t
index d17bd163f..3f198735b 100644
--- a/t/Asset/Wobject/DataForm/viewList.t
+++ b/t/Asset/Wobject/DataForm/viewList.t
@@ -36,24 +36,25 @@ $df->createField( "name",    { type => "text", } );
 $df->createField( "message", { type => "text", } );
 
 # Add entries to the dataform
-my @entries = (
-    $df->entryClass->newFromHash(
-        $df, {
-            name    => "Andy",
-            subject => "Problem!",
-            message => "I need a Rita Heyworth",
-        }
-    ),
-    $df->entryClass->newFromHash(
-        $df, {
-            name    => "Red",
-            subject => "Solution!",
-            message => "I need about tree fiddy",
-        }
-    ),
+my @entryProperties = (
+    {
+        name    => "Andy",
+        subject => "Problem!",
+        message => "I need a Rita Heyworth",
+    },
+    {
+        name    => "Red",
+        subject => "Solution!",
+        message => "I need about tree fiddy",
+    }
 );
-for my $entry (@entries) {
+
+my @entries = ();
+for my $properties (@entryProperties) {
+    my $entry = $df->entryClass->newFromHash( $df, $properties );
     $entry->save;
+    push @entries, $entry;
+    sleep 1;
 }
 
 #----------------------------------------------------------------------------