From 16ac69c0d78f5b54aeb5d59bfaca48d2f0d91b9a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 25 Sep 2009 19:44:46 -0700
Subject: [PATCH] Add cleanup for shopping carts.

---
 t/lib/WebGUI/Test.pm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index a9a40f128..7d0d3f245 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -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;