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

Update Shop::Ship to use Moose instead of C::IO. Update tests, and core code. Provide a shim for the old syntax.

Browse source
This commit is contained in:
Colin Kuskie 2010-06-24 13:41:07 -07:00
parent 9678c3d8a7
commit 6ac0aa936c
4 changed files with 30 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

31
t/Shop/Ship.t
View file

@ -18,6 +18,7 @@ use strict;
use lib "$FindBin::Bin/../lib";
use Test::More;
use Test::Deep;
use Test::Exception;
use JSON;
use HTML::Form;
use Data::Dumper;
@ -33,9 +34,6 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
my $tests = 22;
plan tests => 1 + $tests;
#----------------------------------------------------------------------------
# put your tests here
@ -46,32 +44,16 @@ my $driver;
my $driver2;
my $ship;
SKIP: {
skip 'Unable to load module WebGUI::Shop::Ship', $tests unless $loaded;
#######################################################################
#
# new
#
#######################################################################
my $e;
dies_ok { $ship = WebGUI::Shop::Ship->new(); } 'new takes an exception to not giving it a session variable';
eval { $ship = WebGUI::Shop::Ship->new(); };
$e = Exception::Class->caught();
isa_ok($e, 'WebGUI::Error::InvalidParam', 'new takes an exception to not giving it a session variable');
cmp_deeply(
$e,
methods(
error => 'Must provide a session variable',
got => '',
expected => 'WebGUI::Session',
),
'new: requires a session variable',
);
$ship = WebGUI::Shop::Ship->new($session);
lives_ok { $ship = WebGUI::Shop::Ship->new(session => $session); } 'new takes hash arguments';
lives_ok { $ship = WebGUI::Shop::Ship->new($session); } 'new takes a bare session object';
isa_ok($ship, 'WebGUI::Shop::Ship', 'new returned the right kind of object');
isa_ok($ship->session, 'WebGUI::Session', 'session method returns a session object');
@ -107,6 +89,8 @@ cmp_bag(
my $shipper;
my $e;
eval { $shipper = $ship->addShipper(); };
$e = Exception::Class->caught();
isa_ok($e, 'WebGUI::Error::InvalidParam', 'addShipper croaks without a class');
@ -216,12 +200,11 @@ cmp_deeply(
$cart->delete;
}
done_testing();
#----------------------------------------------------------------------------
# Cleanup
END {
$driver->delete;
$driver2->delete;
is(scalar @{$ship->getShippers()}, 1, 'getShippers: deleted all test shippers');
}