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

Add cleanup for shopping carts.

Browse source
This commit is contained in:
Colin Kuskie 2009-09-25 19:44:46 -07:00
parent 5144dfa04f
commit 16ac69c0d7
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -110,6 +110,7 @@ sub import {
Tags => assetVersionTag => 0,
Assets => assetData => 0,
Workflows => Workflow => 0,
Carts => cart => 0,
);
for ( my $i = 0; $i < @checkCount; $i += 3) {
my ($label, $table) = @checkCount[$i, $i+1];
@ -834,13 +835,14 @@ Example call:
);
my %cleanup = (
'WebGUI::User' => 'delete',
'WebGUI::Group' => 'delete',
'WebGUI::Storage' => 'delete',
'WebGUI::Asset' => 'purge',
'WebGUI::User' => 'delete',
'WebGUI::Group' => 'delete',
'WebGUI::Storage' => 'delete',
'WebGUI::Shop::Cart' => 'delete',
'WebGUI::Asset' => 'purge',
'WebGUI::VersionTag' => 'rollback',
'WebGUI::Workflow' => 'delete',
'WebGUI::Session' => sub {
'WebGUI::Workflow' => 'delete',
'WebGUI::Session' => sub {
my $session = shift;
$session->var->end;
$session->close;