From 8f7d01691d47132894be9f9a279a5e8f3f046dc2 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Fri, 2 Oct 2009 01:02:11 -0500
Subject: [PATCH] fix skip_all in packed test

---
 t/Asset/Template/packed.t | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/t/Asset/Template/packed.t b/t/Asset/Template/packed.t
index 074b74031..4d547d37d 100644
--- a/t/Asset/Template/packed.t
+++ b/t/Asset/Template/packed.t
@@ -25,7 +25,9 @@ use CSS::Packer;
 use JavaScript::Packer;
 use WebGUI::Asset::Template;
 
-skip_all("Set CODE_COP to enable these tests") unless $ENV{CODE_COP};
+if ( !$ENV{CODE_COP} ) {
+    plan skip_all => "Set CODE_COP to enable these tests";
+}
 
 #----------------------------------------------------------------------------
 # Init
@@ -34,6 +36,7 @@ my $templates       = WebGUI::Asset->getRoot( $session )
                     ->getLineage( ['descendants'], { 
                         includeOnlyClasses => [ 'WebGUI::Asset::Template' ],
                     } );
+WebGUI::Test->tagsToRollback( WebGUI::VersionTag->getWorking( $session ) );
 
 #----------------------------------------------------------------------------
 # Tests
@@ -68,9 +71,4 @@ for my $templateId ( @$templates ) {
 }
 
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-    WebGUI::VersionTag->getWorking( $session )->rollback;
-}
 #vim:ft=perl