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

Update the test for Moose status stickiness.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-10 15:13:42 -07:00
parent b96489722b
commit 88e71445d7
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Workflow/Activity/ArchiveOldStories.t
View file

@ -62,7 +62,7 @@ $creationDateSth->execute([$weekAgo, $weekStory->getId]);
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->commit;
addToCleanup($versionTag);
WebGUI::Test->addToCleanup($versionTag);
my $workflow = WebGUI::Workflow->create($session,
{
@ -71,7 +71,7 @@ my $workflow = WebGUI::Workflow->create($session,
mode => 'realtime',
},
);
addToCleanup($workflow);
WebGUI::Test->addToCleanup($workflow);
my $activity = $workflow->addActivity('WebGUI::Workflow::Activity::ArchiveOldStories');
@ -99,6 +99,7 @@ my $archivedAssets = $home->getLineage(
cmp_bag( $archivedAssets, [ ], 'Nothing archived.');
$archive2 = $archive2->cloneFromDb;
$archive2->update({ archiveAfter => 5*24*3600, });
my $instance2 = WebGUI::Workflow::Instance->create($session,
@ -120,5 +121,5 @@ $archivedAssets = $home->getLineage(
},
);
cmp_bag( $archivedAssets, [ $weekStory->getId, $weekFolder->getId ], 'Nothing archived.');
cmp_bag( $archivedAssets, [ $weekStory->getId, $weekFolder->getId ], 'archived two folders');
$creationDateSth->finish;