From f52a3f9bdd8ac2fdfcbbf446684a9b7487543818 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 11 Aug 2009 20:51:51 +0000
Subject: [PATCH] Forward port test fix.

---
 t/Asset/Event.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/Asset/Event.t b/t/Asset/Event.t
index ad4b755f4..87c67b662 100644
--- a/t/Asset/Event.t
+++ b/t/Asset/Event.t
@@ -126,6 +126,8 @@ my $event6 = $cal->addChild($properties3, $properties3->{id});
 
 sleep 2;
 
-my $event6a = $event6->addRevision({ title => 'Event with storage', });
+my $event6a = $event6->addRevision({ title => 'Event with storage', }, undef, { skipAutoCommitWorkflows => 1, });
 ok($session->id->valid($event6a->get('storageId')), 'addRevision gives the new revision a valid storageId');
 isnt($event6a->get('storageId'), $event6->get('storageId'), '... and it is different from the previous revision');
+my $versionTag2 = WebGUI::VersionTag->getWorking($session);
+WebGUI::Test->tagsToRollback($versionTag2);