From dc489b25b9f04b6635e01338e0389b434ba92c82 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 4 Nov 2011 15:19:08 -0700
Subject: [PATCH] Fix a leaking test.

---
 t/Macro/H_homeLink.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/t/Macro/H_homeLink.t b/t/Macro/H_homeLink.t
index dc20aec78..33269df8b 100644
--- a/t/Macro/H_homeLink.t
+++ b/t/Macro/H_homeLink.t
@@ -14,15 +14,21 @@ use WebGUI::Test;
 use WebGUI::Session;
 use HTML::TokeParser;
 use Data::Dumper;
+use WebGUI::VersionTag;
 
 use Test::More; # increment this value for each test you create
 
 my $session = WebGUI::Test->session;
 
+my $tag = WebGUI::VersionTag->getWorking($session);
 my ($template) = addTemplate();
-
 my $homeAsset = WebGUI::Test->asset;
+$tag->commit;
+
+my $originalDefault = $session->setting->get('defaultPage');
+WebGUI::Test->addToCleanup(sub { $session->setting->set('defaultPage', $originalDefault); });
 $session->setting->set( 'defaultPage', $homeAsset->getId );
+WebGUI::Test->addToCleanup($tag);
 
 my $i18n = WebGUI::International->new($session,'Macro_H_homeLink');