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

Updated Survey tests to not leave behind versionTag

Browse source
This commit is contained in:
Patrick Donelan 2009-04-09 04:17:23 +00:00
parent aa8379188a
commit 546d48f68b
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Asset/Wobject/Survey/ExpressionEngine.t
View file

@ -29,7 +29,7 @@ plan tests => $tests + 1;
# put your tests here
my $usedOk = use_ok('WebGUI::Asset::Wobject::Survey::ExpressionEngine');
my ($user, $survey);
my ($user, $survey, $versionTag);
SKIP: {
skip $tests, "Unable to load ExpressionEngine" unless $usedOk;
@ -116,6 +116,7 @@ SKIP: {
my $user = WebGUI::User->new( $session, 'new' );
# Create a Survey
$versionTag = WebGUI::VersionTag->getWorking($session);
my $survey = WebGUI::Asset->getImportNode($session)->addChild(
{ className => 'WebGUI::Asset::Wobject::Survey',
},
@ -167,4 +168,5 @@ SKIP: {
END {
$user->delete if $user;
$survey->purge if $survey;
$versionTag->rollback if $versionTag;
}