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

update tests to match new code

Browse source
This commit is contained in:
JT Smith 2008-03-19 22:30:41 +00:00
parent 3e6687ef7f
commit 1cb43b13af
2 changed files with 32 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

40
lib/WebGUI/Shop/CartItem.pm
View file

@ -29,6 +29,27 @@ These subroutines are available from this package:
readonly cart => my %cart;
private properties => my %properties;
#-------------------------------------------------------------------
=head2 adjustQuantity ( [ quantity ] )
Increments quantity of item by one. Returns the quantity of this item in the cart.
=head3 quantity
If specified may increment quantity by more than one. Specify a negative number to decrement quantity. If the quantity ever reaches 0 or lower, the item will be removed from the cart.
=cut
sub adjustQuantity {
my ($self, $quantity) = @_;
$quantity ||= 1;
$self->setQuantity($quantity + $self->get("quantity"));
return $self->get("quantity");
}
#-------------------------------------------------------------------
=head2 cart ( )
@ -157,25 +178,6 @@ sub getSku {
}
#-------------------------------------------------------------------
=head2 incrementQuantity ( [ quantity ] )
Increments quantity of item by one. Returns the quantity of this item in the cart.
=head3 quantity
If specified may increment quantity by more than one. Specify a negative number to decrement quantity. If the quantity ever reaches 0 or lower, the item will be removed from the cart.
=cut
sub incrementQuantity {
my ($self, $quantity) = @_;
$quantity ||= 1;
$self->setQuantity($quantity + $self->get("quantity"));
return $self->get("quantity");
}
#-------------------------------------------------------------------