oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add cleanup for Workflow Instances.

Browse source
This commit is contained in:
Colin Kuskie 2010-05-02 00:16:49 -07:00
parent 02c4c5cf47
commit c6b34385ce
1 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

28
t/lib/WebGUI/Test.pm
View file

@ -876,23 +876,27 @@ Example call:
); );
my %cleanup = ( my %cleanup = (
'WebGUI::User' => 'delete', 'WebGUI::User' => 'delete',
'WebGUI::Group' => 'delete', 'WebGUI::Group' => 'delete',
'WebGUI::Storage' => 'delete', 'WebGUI::Storage' => 'delete',
'WebGUI::Asset' => 'purge', 'WebGUI::Asset' => 'purge',
'WebGUI::VersionTag' => 'rollback', 'WebGUI::VersionTag' => 'rollback',
'WebGUI::Workflow' => 'delete', 'WebGUI::Workflow' => 'delete',
'WebGUI::DatabaseLink' => 'delete', 'WebGUI::DatabaseLink' => 'delete',
'WebGUI::Shop::AddressBook' => 'delete', 'WebGUI::Shop::AddressBook' => 'delete',
'WebGUI::Shop::Transaction' => 'delete', 'WebGUI::Shop::Transaction' => 'delete',
'WebGUI::Shop::ShipDriver' => 'delete', 'WebGUI::Shop::ShipDriver' => 'delete',
'WebGUI::Shop::PayDriver' => 'delete', 'WebGUI::Shop::PayDriver' => 'delete',
'WebGUI::Shop::Cart' => sub { 'WebGUI::Shop::Cart' => sub {
my $cart = shift; my $cart = shift;
my $addressBook = $cart->getAddressBook(); my $addressBook = $cart->getAddressBook();
$addressBook->delete if $addressBook; ##Should we call cleanupGuard instead??? $addressBook->delete if $addressBook; ##Should we call cleanupGuard instead???
$cart->delete; $cart->delete;
}, },
'WebGUI::Workflow::Instance' => sub {
my $instance = shift;
$instance->delete('skipNotify');
},
'WebGUI::Session' => sub { 'WebGUI::Session' => sub {
my $session = shift; my $session = shift;
$session->var->end; $session->var->end;