From c6b34385ce4dde05915574150e79bbf4b84199e6 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 2 May 2010 00:16:49 -0700
Subject: [PATCH] Add cleanup for Workflow Instances.

---
 t/lib/WebGUI/Test.pm | 28 ++++++++++++++++------------
 1 file changed, 16 insertions(+), 12 deletions(-)

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 331c45e97..454969d9f 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -876,23 +876,27 @@ Example call:
     );
 
     my %cleanup = (
-        'WebGUI::User'              => 'delete',
-        'WebGUI::Group'             => 'delete',
-        'WebGUI::Storage'           => 'delete',
-        'WebGUI::Asset'             => 'purge',
-        'WebGUI::VersionTag'        => 'rollback',
-        'WebGUI::Workflow'          => 'delete',
-        'WebGUI::DatabaseLink'      => 'delete',
-        'WebGUI::Shop::AddressBook' => 'delete',
-        'WebGUI::Shop::Transaction' => 'delete',
-        'WebGUI::Shop::ShipDriver'  => 'delete',
-        'WebGUI::Shop::PayDriver'   => 'delete',
-        'WebGUI::Shop::Cart'        => sub {
+        'WebGUI::User'               => 'delete',
+        'WebGUI::Group'              => 'delete',
+        'WebGUI::Storage'            => 'delete',
+        'WebGUI::Asset'              => 'purge',
+        'WebGUI::VersionTag'         => 'rollback',
+        'WebGUI::Workflow'           => 'delete',
+        'WebGUI::DatabaseLink'       => 'delete',
+        'WebGUI::Shop::AddressBook'  => 'delete',
+        'WebGUI::Shop::Transaction'  => 'delete',
+        'WebGUI::Shop::ShipDriver'   => 'delete',
+        'WebGUI::Shop::PayDriver'    => 'delete',
+        'WebGUI::Shop::Cart'         => sub {
             my $cart        = shift;
             my $addressBook = $cart->getAddressBook();
             $addressBook->delete if $addressBook;  ##Should we call cleanupGuard instead???
             $cart->delete;
         },
+        'WebGUI::Workflow::Instance' => sub {
+            my $instance = shift;
+            $instance->delete('skipNotify');
+        },
         'WebGUI::Session'          => sub {
             my $session = shift;
             $session->var->end;