From 564b4e90d1458ff9615de439025d26d8950cad3d Mon Sep 17 00:00:00 2001
From: Patrick Donelan <pat@patspam.com>
Date: Thu, 13 Nov 2008 22:39:29 +0000
Subject: [PATCH] Added skeleton Survey2 test file. Changed debug logging from
 ERROR level to DEBUG

---
 lib/WebGUI/Asset/Wobject/Survey.pm |  2 +-
 t/Asset/Wobject/Survey.t           | 42 ++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+), 1 deletion(-)
 create mode 100644 t/Asset/Wobject/Survey.t

diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm
index bc7514187..a74ab80a0 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -1085,7 +1085,7 @@ sub loadTempReportTable {
 
 sub log {
     my $self = shift;
-    $self->session->errorHandler->error(shift);
+    $self->session->log->debug(shift);
 }
 
 1;
diff --git a/t/Asset/Wobject/Survey.t b/t/Asset/Wobject/Survey.t
new file mode 100644
index 000000000..ca797980c
--- /dev/null
+++ b/t/Asset/Wobject/Survey.t
@@ -0,0 +1,42 @@
+# Tests WebGUI::Asset::Wobject::Survey
+#
+#
+
+use strict;
+use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../../lib";
+use Test::More;
+use Test::Deep;
+use Data::Dumper;
+use WebGUI::Test;    # Must use this before any other WebGUI modules
+use WebGUI::Session;
+
+#----------------------------------------------------------------------------
+# Init
+my $session = WebGUI::Test->session;
+
+#----------------------------------------------------------------------------
+# Tests
+plan tests => 2;
+
+#----------------------------------------------------------------------------
+# put your tests here
+
+use_ok('WebGUI::Asset::Wobject::Survey');
+my $user = WebGUI::User->new( $session, 'new' );
+my $import_node = WebGUI::Asset->getImportNode($session);
+
+# Create a Survey
+my $survey = $import_node->addChild( { className => 'WebGUI::Asset::Wobject::Survey', } );
+isa_ok($survey, 'WebGUI::Asset::Wobject::Survey');
+
+#----------------------------------------------------------------------------
+# Cleanup
+END {
+    $user->delete() if $user;
+    $survey->purge() if $survey;
+
+    my $versionTag = WebGUI::VersionTag->getWorking( $session, 1 );
+    $versionTag->rollback() if $versionTag;
+}