From 4a7d704bfc2b76226ab03ae3746e38a950834fe9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 25 May 2009 15:32:59 +0000
Subject: [PATCH] Forward port version tag tracking and leak fix.

---
 t/Auth/mech.t        | 1 +
 t/lib/WebGUI/Test.pm | 1 +
 2 files changed, 2 insertions(+)

diff --git a/t/Auth/mech.t b/t/Auth/mech.t
index ed7755271..459c74e7b 100644
--- a/t/Auth/mech.t
+++ b/t/Auth/mech.t
@@ -69,6 +69,7 @@ my $asset
     });
 $versionTags[-1]->commit;
 my $assetUrl    = $baseUrl . $asset->get('url');
+WebGUI::Test->tagsToDelete(@versionTags);
 
 #----------------------------------------------------------------------------
 # Tests
diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 4209f0d9d..c05fbdc3a 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -176,6 +176,7 @@ END {
         $Test->diag('Users   : '.$SESSION->db->quickScalar('select count(*) from users'));
         $Test->diag('Groups  : '.$SESSION->db->quickScalar('select count(*) from groups'));
         $Test->diag('mailQ   : '.$SESSION->db->quickScalar('select count(*) from mailQueue'));
+        $Test->diag('Tags    : '.$SESSION->db->quickScalar('select count(*) from assetVersionTag'));
     }
     while (my ($key, $value) = each %originalConfig) {
         if (defined $value) {