From 911376043c236c0aeec528cc317cbc3611707ba8 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Fri, 2 Apr 2010 18:31:44 -0500
Subject: [PATCH] quiet photo navigation test and add better cleanup

---
 t/Asset/File/GalleryFile/Photo/navigation.t | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/t/Asset/File/GalleryFile/Photo/navigation.t b/t/Asset/File/GalleryFile/Photo/navigation.t
index 567e73fd6..468fcadb0 100644
--- a/t/Asset/File/GalleryFile/Photo/navigation.t
+++ b/t/Asset/File/GalleryFile/Photo/navigation.t
@@ -26,6 +26,8 @@ my $versionTag = WebGUI::VersionTag->getWorking($session);
 
 $versionTag->set({name=>"Photo Test"});
 
+addToCleanup($versionTag);
+
 # Create gallery and a single album
 my $gallery
     = $node->addChild({
@@ -77,21 +79,21 @@ use_ok("WebGUI::Asset::File::GalleryFile::Photo");
 #----------------------------------------------------------------------------
 # Test getFirstFile method
 
-diag('getFirstFile');
+note('getFirstFile');
 is( $photo[2]->getFirstFile->getId, $photo[0]->getId, 'First file is photo no. 1' );
 is( $photo[0]->getFirstFile->getId, $photo[0]->getId, 'First file is still photo no. 1' );
 
 #----------------------------------------------------------------------------
 # Test getFirstFile method
 
-diag('getLastFile');
+note('getLastFile');
 is( $photo[2]->getLastFile->getId, $photo[4]->getId, 'Last file is photo no. 5' );
 is( $photo[4]->getLastFile->getId, $photo[4]->getId, 'Last file is still photo no. 5' );
 
 #----------------------------------------------------------------------------
 # Test getPreviousFile method
 
-diag('getPreviousFile');
+note('getPreviousFile');
 is( $photo[2]->getPreviousFile->getId, $photo[1]->getId, 'Photo previous of photo no. 3 is photo no. 2' );
 is( $photo[1]->getPreviousFile->getId, $photo[0]->getId, 'Photo previous of photo no. 2 is photo no. 1' );
 is( $photo[0]->getPreviousFile, undef, 'Photo previous of photo no. 1 is undef' );
@@ -99,13 +101,8 @@ is( $photo[0]->getPreviousFile, undef, 'Photo previous of photo no. 1 is undef'
 #----------------------------------------------------------------------------
 # Test getNextFile method
 
-diag('getNextFile');
+note('getNextFile');
 is( $photo[2]->getNextFile->getId, $photo[3]->getId, 'Photo next of photo no. 3 is photo no. 4' );
 is( $photo[3]->getNextFile->getId, $photo[4]->getId, 'Photo next of photo no. 4 is photo no. 5' );
 is( $photo[4]->getNextFile, undef, 'Photo next of photo no. 5 is undef' );
 
-#----------------------------------------------------------------------------
-# Cleanup
-END {
-    $versionTag->rollback;
-}