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

More test maintenance for Payment drivers.

Browse source
This commit is contained in:
Colin Kuskie 2009-07-23 20:57:51 +00:00
parent 8d1d8ca2f1
commit 33d2914c28
2 changed files with 5 additions and 89 deletions
Download patch file Download diff file Expand all files Collapse all files

9
t/Shop/Pay.t
View file

@ -143,10 +143,11 @@ is($newDriver->get('label'), 'Cold, stone hard cash', 'label passed correctly to
my $drivers = $pay->getDrivers(); my $drivers = $pay->getDrivers();
my $defaultPayDrivers = { my $defaultPayDrivers = {
'WebGUI::Shop::PayDriver::Cash' => 'Cash', 'WebGUI::Shop::PayDriver::Cash' => 'Cash',
'WebGUI::Shop::PayDriver::ITransact' => 'Credit Card (ITransact)', 'WebGUI::Shop::PayDriver::ITransact' => 'Credit Card (ITransact)',
'WebGUI::Shop::PayDriver::PayPal' => 'PayPal', 'WebGUI::Shop::PayDriver::Ogone' => 'Ogone',
'WebGUI::Shop::PayDriver::Ogone' => 'Ogone', 'WebGUI::Shop::PayDriver::PayPal::PayPalStd' => 'PayPal',
'WebGUI::Shop::PayDriver::PayPal::ExpressCheckout' => 'PayPal Express Checkout',
}; };
cmp_deeply( $drivers, $defaultPayDrivers, 'getDrivers returns the default PayDrivers'); cmp_deeply( $drivers, $defaultPayDrivers, 'getDrivers returns the default PayDrivers');

85
t/Shop/PayDriver/PayPal.t
View file

@ -1,85 +0,0 @@
# vim:syntax=perl
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#------------------------------------------------------------------
# Write a little about what this script tests.
#
#
use FindBin;
use strict;
use lib "$FindBin::Bin/../../lib";
use Test::More;
use Test::Deep;
use JSON;
use HTML::Form;
use WebGUI::Test; # Must use this before any other WebGUI modules
use WebGUI::Session;
#----------------------------------------------------------------------------
# Init
my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
my $tests = 3;
plan tests => 1 + $tests;
#----------------------------------------------------------------------------
# figure out if the test can actually run
my $e;
my $loaded = use_ok('WebGUI::Shop::PayDriver::PayPal');
my $storage;
SKIP: {
skip 'Unable to load module WebGUI::Shop::PayDriver::PayPal', $tests unless $loaded;
#######################################################################
#
# getName
#
#######################################################################
my $driver;
my $options = {
label => 'PayPal',
enabled => 1,
group => 3,
receiptMessage => 'Pannenkoeken zijn nog lekkerder met spek',
};
$driver = WebGUI::Shop::PayDriver::PayPal->create( $session, $options );
isa_ok ($driver, 'WebGUI::Shop::PayDriver');
isa_ok ($driver, 'WebGUI::Shop::PayDriver::PayPal');
is($driver->getName($session), 'PayPal', 'getName returns the human readable name of this driver');
#######################################################################
#
# delete
#
#######################################################################
$driver->delete;
undef $driver;
}
#----------------------------------------------------------------------------
# Cleanup
END {
}