oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added skeleton Survey2 test file.

Browse source 
Changed debug logging from ERROR level to DEBUG
This commit is contained in:
Patrick Donelan 2008-11-13 22:39:29 +00:00
parent 02d76504a6
commit 564b4e90d1
2 changed files with 43 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -1085,7 +1085,7 @@ sub loadTempReportTable {
sub log {
my $self = shift;
$self->session->errorHandler->error(shift);
$self->session->log->debug(shift);
}
1;

42
t/Asset/Wobject/Survey.t Normal file
View file

@ -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;
}