diff --git a/t/Workflow/Activity/ExpireIncompleteSurveyResponses.t b/t/Workflow/Activity/ExpireIncompleteSurveyResponses.t index 59bcf9d10..43879c6e6 100644 --- a/t/Workflow/Activity/ExpireIncompleteSurveyResponses.t +++ b/t/Workflow/Activity/ExpireIncompleteSurveyResponses.t @@ -35,6 +35,8 @@ WebGUI::Test->usersToDelete($user); # Create a Survey my $survey = WebGUI::Asset->getImportNode($session)->addChild( { className => 'WebGUI::Asset::Wobject::Survey', } ); +WebGUI::Test->tagsToRollback(WebGUI::VersionTag->getWorking($session)); +WebGUI::Test->assetsToPurge($survey); my $sJSON = $survey->surveyJSON; $sJSON->newObject([0]); # add a question to 0th section $sJSON->update([0,0], { questionType => 'Yes/No' }); @@ -104,4 +106,4 @@ is($session->db->quickScalar('select count(*) from Survey_response where Survey_ END { $session->db->write('delete from Survey_response where userId = ?', [$user->userId]) if $user; -} \ No newline at end of file +} diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm index 2d8b97f54..9c757d92d 100644 --- a/t/lib/WebGUI/Test.pm +++ b/t/lib/WebGUI/Test.pm @@ -186,6 +186,9 @@ END { $session->var->end; $session->close; } + ASSET: foreach my $asset (@assetsToPurge) { + $asset->purge; + } TAG: foreach my $tag (@tagsToRollback) { $tag->rollback; } @@ -208,9 +211,6 @@ END { $workflow->delete; } - ASSET: foreach my $asset (@assetsToPurge) { - $asset->purge; - } if ($ENV{WEBGUI_TEST_DEBUG}) { $Test->diag('Sessions : '.$SESSION->db->quickScalar('select count(*) from userSession')); $Test->diag('Scratch : '.$SESSION->db->quickScalar('select count(*) from userSessionScratch'));