From ace2c81fca5556f5d83a6335374e7ed3a15cf1c9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 5 Dec 2008 03:41:29 +0000
Subject: [PATCH] update SurveyJSON test to fix perl 5.10 misleading errors

---
 t/Asset/Wobject/Survey/SurveyJSON.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/t/Asset/Wobject/Survey/SurveyJSON.t b/t/Asset/Wobject/Survey/SurveyJSON.t
index 14a95debc..1fd441120 100644
--- a/t/Asset/Wobject/Survey/SurveyJSON.t
+++ b/t/Asset/Wobject/Survey/SurveyJSON.t
@@ -687,6 +687,10 @@ cmp_deeply(
                 text => '',
                 type => 'question',
             }),
+            superhashof({
+                text => '',
+                type => 'question',
+            }),
         ],
     }),
     'Added a question to section 2 to test removing it'
@@ -698,7 +702,12 @@ cmp_deeply(
     superhashof({
         title => 'Section 2',
         type  => 'section',
-        questions => [],
+        questions => [
+            superhashof({
+                text => '',
+                type => 'question',
+            }),
+        ],
     }),
     'remove: removed a question'
 );