From 1a462d483578c11f55bd3be658c46255b86b86c6 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 11 Apr 2011 09:32:32 -0700
Subject: [PATCH] for exportRelatedAssetIds, Don't create a version tag unless
 it's needed, and then don't restore it unless it exists.  Otherwise, the tag
 leaks and breaks downstream tests.

---
 t/Asset/AssetExportHtml.t | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/t/Asset/AssetExportHtml.t b/t/Asset/AssetExportHtml.t
index c7e501a03..d8ffdcffd 100644
--- a/t/Asset/AssetExportHtml.t
+++ b/t/Asset/AssetExportHtml.t
@@ -631,7 +631,7 @@ is(readlink $symlinkedRoot->stringify, $parentPath, 'exportSymlinkRoot sets up l
 unlink $symlinkedRoot->stringify;
 
 subtest exportRelated => sub {
-    my $old = WebGUI::VersionTag->getWorking($session);
+    my $old = WebGUI::VersionTag->getWorking($session, 'noCreate');
     my $tag = WebGUI::VersionTag->create($session);
     $tag->setWorking();
     my $topic = $parent->addChild({
@@ -646,7 +646,7 @@ subtest exportRelated => sub {
         keywords  => 'relatedAssetTesting',
     });
     $tag->commit();
-    my $cleanup = guard { $old->setWorking(); $tag->rollback };
+    my $cleanup = guard { $tag->rollback; if ($old) { $old->setWorking(); } };
     cmp_deeply(
         $archive->exportGetAssetIds({ depth => 99, exportRelated => 1}),
         superbagof(map { $_->getId } ($topic, $archive, $story)),
@@ -658,7 +658,6 @@ subtest exportRelated => sub {
     );
 };
 
-
 #----------------------------------------------------------------------------
 # exportGetDescendants()