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

Fix a leaking test.

Browse source
This commit is contained in:
Colin Kuskie 2009-02-03 04:09:01 +00:00
parent 512b672ac6
commit 4ac37757ca
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/Shop/ShipDriver/FlatRate.t
View file

@ -126,7 +126,7 @@ cmp_deeply(
# #
####################################################################### #######################################################################
my $driver; $driver;
my $options = { my $options = {
label => 'flat rate, ship weight, items in the cart', label => 'flat rate, ship weight, items in the cart',
@ -320,13 +320,13 @@ is($driver->calculate($cart), 30_200, 'calculate by percentage of price');
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Cleanup # Cleanup
END { END {
if (defined $driver and ref $driver eq 'WebGUI::Shop::ShipDriver::FlatRate') { if (defined $driver && ref $driver eq 'WebGUI::Shop::ShipDriver::FlatRate') {
$driver->delete; $driver->delete;
} }
if (defined $cart and ref $cart eq 'WebGUI::Shop::Cart') { if (defined $cart && ref $cart eq 'WebGUI::Shop::Cart') {
$cart->delete; $cart->delete;
} }
if (defined $car and (ref($car) eq 'WebGUI::Asset::Sku::Product')) { if (defined $car && (ref($car) eq 'WebGUI::Asset::Sku::Product')) {
$car->purge; $car->purge;
} }
} }