update SurveyJSON test to fix perl 5.10 misleading errors

2008-12-05 03:41:29 +00:00 · 2008-12-05 03:41:29 +00:00 · ace2c81fca
commit ace2c81fca
parent 75da4c46bd
1 changed files with 10 additions and 1 deletions
--- 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'
 );