From 8a92be9454a200c608838d8b458c917c6a4a6103 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 4 Nov 2011 15:21:58 -0700
Subject: [PATCH] Fix another leaky test.

---
 t/Macro/LastUpdatedBy.t | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/t/Macro/LastUpdatedBy.t b/t/Macro/LastUpdatedBy.t
index b0493d07c..3bfca7d1f 100644
--- a/t/Macro/LastUpdatedBy.t
+++ b/t/Macro/LastUpdatedBy.t
@@ -16,6 +16,7 @@ use WebGUI::Test;
 use WebGUI::Session;
 use WebGUI::User;
 use WebGUI::Macro::LastUpdatedBy;
+use WebGUI::VersionTag;
 
 use Test::More; # increment this value for each test you create
 
@@ -51,9 +52,12 @@ my %properties_A = (
                 #              '1234567890123456789012',
 );
 
+my $tag = WebGUI::VersionTag->getWorking($session);
 my $assetA = $root->addChild(\%properties_A, $properties_A{id});
 
 $session->asset($assetA);
+$tag->commit;
+WebGUI::Test->addToCleanup($tag);
 
 $output = WebGUI::Macro::LastUpdatedBy::process($session);
 is($output, 'Andy', 'Default asset last revised by andy');