update SurveyJSON test to fix perl 5.10 misleading errors

This commit is contained in:
Colin Kuskie 2008-12-05 03:41:29 +00:00
parent 75da4c46bd
commit ace2c81fca

View file

@ -687,6 +687,10 @@ cmp_deeply(
text => '', text => '',
type => 'question', type => 'question',
}), }),
superhashof({
text => '',
type => 'question',
}),
], ],
}), }),
'Added a question to section 2 to test removing it' 'Added a question to section 2 to test removing it'
@ -698,7 +702,12 @@ cmp_deeply(
superhashof({ superhashof({
title => 'Section 2', title => 'Section 2',
type => 'section', type => 'section',
questions => [], questions => [
superhashof({
text => '',
type => 'question',
}),
],
}), }),
'remove: removed a question' 'remove: removed a question'
); );