From 50d92f9113925b1ec4ef8c5b5db6df447c611141 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 10 Nov 2010 14:39:12 -0800
Subject: [PATCH] Fix default for tests in Survey::Test.  Also change usage of
 create to new in the test for ::Test.

---
 lib/WebGUI/Asset/Wobject/Survey/Test.pm | 2 +-
 t/Asset/Wobject/Survey/Test.t           | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/Survey/Test.pm b/lib/WebGUI/Asset/Wobject/Survey/Test.pm
index 05604c6b1..6694912f5 100644
--- a/lib/WebGUI/Asset/Wobject/Survey/Test.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey/Test.pm
@@ -34,7 +34,7 @@ property test => (
     "test": {
         "variable1": "yes",
         "next": "section2",
-         );
+         }
 },
 ]
 END_SPEC
diff --git a/t/Asset/Wobject/Survey/Test.t b/t/Asset/Wobject/Survey/Test.t
index e420a303c..01a80cd4b 100644
--- a/t/Asset/Wobject/Survey/Test.t
+++ b/t/Asset/Wobject/Survey/Test.t
@@ -152,7 +152,7 @@ cmp_deeply(
     'surveyOrderIndex correct'
 );
 
-my $t1 = WebGUI::Asset::Wobject::Survey::Test->create( $session, { assetId => $s->getId } );
+my $t1 = WebGUI::Asset::Wobject::Survey::Test->new( $session, { assetId => $s->getId } );
 WebGUI::Test->addToCleanup(sub {$t1->delete();});
 my $spec;