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

PayPal drivers converted to Moose.

Browse source
This commit is contained in:
Colin Kuskie 2010-10-08 11:38:52 -07:00
parent 2fd37a7ed2
commit cd548fd671
3 changed files with 158 additions and 171 deletions
Download patch file Download diff file Expand all files Collapse all files

22
t/Shop/PayDriver/PayPalStd.t
View file

@ -21,6 +21,7 @@ use HTML::Form;
use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Session;
use WebGUI::Shop::PayDriver::PayPal::PayPalStd;
#----------------------------------------------------------------------------
# Init
@ -29,16 +30,13 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
my $tests = 3;
plan tests => 1 + $tests;
plan tests => 3;
#----------------------------------------------------------------------------
# figure out if the test can actually run
my $e;
my $loaded = use_ok('WebGUI::Shop::PayDriver::PayPal::PayPalStd');
#######################################################################
#
# getName
@ -48,25 +46,15 @@ my $driver;
my $options = {
label => 'PayPal',
enabled => 1,
group => 3,
receiptMessage => 'Pannenkoeken zijn nog lekkerder met spek',
groupToUse => 3,
};
$driver = WebGUI::Shop::PayDriver::PayPal::PayPalStd->create( $session, $options );
$driver = WebGUI::Shop::PayDriver::PayPal::PayPalStd->new( $session, $options );
WebGUI::Test->addToCleanup($driver);
isa_ok ($driver, 'WebGUI::Shop::PayDriver');
isa_ok ($driver, 'WebGUI::Shop::PayDriver::PayPal::PayPalStd');
is($driver->getName($session), 'PayPal', 'getName returns the human readable name of this driver');
#######################################################################
#
# delete
#
#######################################################################
$driver->delete;
undef $driver;
#vim:ft=perl