From 89ea0e7cea67bf158df21b7b945e88302402b67a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 7 Dec 2009 13:07:11 -0800
Subject: [PATCH] use addToCleanup instead of an END block.

---
 t/Workflow/Activity/ArchiveOldStories.t | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/t/Workflow/Activity/ArchiveOldStories.t b/t/Workflow/Activity/ArchiveOldStories.t
index 4dcb77a81..023a330b6 100644
--- a/t/Workflow/Activity/ArchiveOldStories.t
+++ b/t/Workflow/Activity/ArchiveOldStories.t
@@ -62,6 +62,7 @@ $creationDateSth->execute([$weekAgo, $weekStory->getId]);
 
 my $versionTag = WebGUI::VersionTag->getWorking($session);
 $versionTag->commit;
+addToCleanup($versionTag);
 
 my $workflow  = WebGUI::Workflow->create($session,
     {
@@ -70,6 +71,8 @@ my $workflow  = WebGUI::Workflow->create($session,
         mode       => 'realtime',
     },
 );
+addToCleanup($workflow);
+
 my $activity = $workflow->addActivity('WebGUI::Workflow::Activity::ArchiveOldStories');
 
 my $instance1 = WebGUI::Workflow::Instance->create($session,
@@ -118,10 +121,4 @@ $archivedAssets = $home->getLineage(
 );
 
 cmp_bag( $archivedAssets, [ $weekStory->getId, $weekFolder->getId ], 'Nothing archived.');
-
-END {
-    $creationDateSth->finish;
-    $versionTag->rollback;
-    $workflow->delete;
-}
-
+$creationDateSth->finish;