From 6e9031de4aa577fe2d981c0a8a6b2710112eabcf Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 15 Jun 2008 04:30:50 +0000
Subject: [PATCH] WebGUI ships with 1 driver, do not delete it

---
 t/Shop/Ship.t                | 3 +++
 t/Shop/ShipDriver/FlatRate.t | 1 -
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/Shop/Ship.t b/t/Shop/Ship.t
index a869f7147..545424e78 100644
--- a/t/Shop/Ship.t
+++ b/t/Shop/Ship.t
@@ -160,7 +160,10 @@ $driver2 = $ship->addShipper('WebGUI::Shop::ShipDriver::FlatRate', { enabled=>1,
 $shippers = $ship->getShippers();
 is(scalar @{$shippers}, 3, 'getShippers: got both shippers');
 
+use Data::Dumper;
+diag Dumper $shippers;
 my @shipperNames = map { $_->get("label") } @{ $shippers };
+diag Dumper \@shipperNames;
 cmp_bag(
     \@shipperNames,
     [q{Jake's Jailbird Airmail},q{Tommy's cut-rate shipping},q{Free Shipping}, ],
diff --git a/t/Shop/ShipDriver/FlatRate.t b/t/Shop/ShipDriver/FlatRate.t
index b158f65ec..51ce3d199 100644
--- a/t/Shop/ShipDriver/FlatRate.t
+++ b/t/Shop/ShipDriver/FlatRate.t
@@ -252,5 +252,4 @@ undef $driver;
 #----------------------------------------------------------------------------
 # Cleanup
 END {
-    $session->db->write('delete from shipper');
 }