From c2cbec2f18572bde2a037ed77e7b51803fd09d11 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 9 May 2010 22:31:57 -0700
Subject: [PATCH] Attempt to make this test more robust.

---
 t/VersionTag.t | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/t/VersionTag.t b/t/VersionTag.t
index 34e3e659f..3cde71b7e 100644
--- a/t/VersionTag.t
+++ b/t/VersionTag.t
@@ -206,13 +206,16 @@ my $siteWideTag;
 
 $tag->clearWorking();
 
-ok(defined ($userTag = getWorking(1)), 'versionTagMode singlePerUser: reclaim version tag after clearWorking');
-is ($userTag->getId(), $userTagId, q{versionTagMode singlePerUser:  reclaimed version tag has same id});
+my $gotTag = ok(defined ($userTag = getWorking(1)), 'versionTagMode singlePerUser: reclaim version tag after clearWorking');
+SKIP: {
+    skip 1, 'userTag not set' unless $gotTag;
+    is ($userTag->getId(), $userTagId, q{versionTagMode singlePerUser:  reclaimed version tag has same id});
+    $userTag->clearWorking();
+}
 
 
 #switch to sitewide mode
 
-$userTag->clearWorking();
 
 setSiteVersionTagMode($session, q{siteWide});