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

Finalize getShippers, along with tests.

Browse source
This commit is contained in:
Colin Kuskie 2008-02-29 04:03:28 +00:00
parent 1261c96349
commit d780700013
2 changed files with 20 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Shop/Ship.pm
View file

@ -127,6 +127,14 @@ sub getShippers {
my $session = shift;
WebGUI::Error::InvalidParam->throw(error => q{Must provide a session variable})
unless ref $session eq 'WebGUI::Session';
my $drivers;
my $sth = $session->db->prepare('select shipperId from shipper');
$sth->execute();
while (my $driver = $sth->hashRef()) {
push @{ $drivers }, WebGUI::Shop::Ship->new($session, $driver->{shipperId});
}
$sth->finish;
return $drivers;
}
#-------------------------------------------------------------------

14
t/Shop/Ship.t
View file

@ -31,7 +31,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
my $tests = 25;
my $tests = 27;
plan tests => 1 + $tests;
#----------------------------------------------------------------------------
@ -195,6 +195,7 @@ cmp_deeply($driverCopy->options, $driver->options, 'same options');
#######################################################################
my $shippers;
my $driver2 = WebGUI::Shop::Ship->create($session, 'WebGUI::Shop::ShipDriver::FlatRate', { enabled=>1, label=>q{Tommy's cut-rate shipping}});
eval { $shippers = WebGUI::Shop::Ship->getShippers(); };
$e = Exception::Class->caught();
@ -207,7 +208,16 @@ cmp_deeply(
'getShippers takes exception to not giving it a session object',
);
$shippers = WebGUI::Shop::Ship->getShippers();
$shippers = WebGUI::Shop::Ship->getShippers($session);
is(scalar @{$shippers}, 2, 'getShippers: got both shippers');
my @shipperNames = map { $_->options()->{label} } @{ $shippers };
cmp_bag(
\@shipperNames,
[q{Jake's Jailbird Airmail},q{Tommy's cut-rate shipping}],
'Returned shippers have the right data'
);
}