Refactored SurveyJSON's new, freeze and addObject for readability

2009-01-20 07:34:55 +00:00 · 2009-01-20 07:34:55 +00:00 · 6d10570fdb
commit 6d10570fdb
parent 3a4f90aef6
2 changed files with 62 additions and 43 deletions
--- a/t/Asset/Wobject/Survey/SurveyJSON.t
+++ b/t/Asset/Wobject/Survey/SurveyJSON.t
@ -189,7 +189,7 @@ cmp_deeply(
 lives_ok
    {
        my $foo = WebGUI::Asset::Wobject::Survey::SurveyJSON->new(
-            qq!{ "survey" : "on 16\x{201d} hand-crocheted Cord" }!,
+            encode_json({survey => "on 16\x{201d}" }),
            $session->log
        );
    }