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

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'
);
}