From e88a5e2493a719f4b17cc0d59305b038599d77a0 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 25 May 2009 15:35:45 +0000
Subject: [PATCH] Forward port version tag fix.

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

diff --git a/t/Auth/mech.t b/t/Auth/mech.t
index 459c74e7b..03321bec1 100644
--- a/t/Auth/mech.t
+++ b/t/Auth/mech.t
@@ -69,7 +69,7 @@ my $asset
     });
 $versionTags[-1]->commit;
 my $assetUrl    = $baseUrl . $asset->get('url');
-WebGUI::Test->tagsToDelete(@versionTags);
+WebGUI::Test->tagsToRollback(@versionTags);
 
 #----------------------------------------------------------------------------
 # Tests
diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index c05fbdc3a..3cbf5145e 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -177,6 +177,7 @@ END {
         $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'));
+        $Test->diag('Assets  : '.$SESSION->db->quickScalar('select count(*) from assetData'));
     }
     while (my ($key, $value) = each %originalConfig) {
         if (defined $value) {