From 20814beefd05e7891b75886085b2446b748545c3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 23 Jul 2009 21:02:53 +0000
Subject: [PATCH] Update to use automatic tag rollback.

---
 t/Asset/AssetLineage.t | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/t/Asset/AssetLineage.t b/t/Asset/AssetLineage.t
index 10af88b17..a0e021f77 100644
--- a/t/Asset/AssetLineage.t
+++ b/t/Asset/AssetLineage.t
@@ -30,6 +30,7 @@ is($asset->formatRank(76), "000076", "formatRank()");
 is($asset->getLineageLength(), (length($asset->get("lineage")) / 6), "getLineageLength()");
 
 my $versionTag = WebGUI::VersionTag->getWorking($session);
+WebGUI::Test->tagsToRollback($versionTag);
 $versionTag->set({name=>"AssetLineage Test"});
 
 my $root = WebGUI::Asset->getRoot($session);
@@ -501,6 +502,7 @@ cmp_bag(
 
 my $vTag2 = WebGUI::VersionTag->getWorking($session);
 $vTag2->set({name=>"deep addChild test"});
+WebGUI::Test->tagsToRollback($vTag2);
 
 WebGUI::Test->interceptLogging();
 
@@ -526,10 +528,3 @@ TODO: {
     ok(0, 'addChild');
     ok(0, 'getLineage coverage tests');
 }
-
-
-END {
-    foreach my $tag ($versionTag, $vTag2) {
-        $tag->rollback;
-    }
-}