Add a basic test for the PayPalStd driver.

This commit is contained in:
Colin Kuskie 2009-05-13 23:47:05 +00:00
parent 7cd17bde85
commit b877e8fa05
2 changed files with 91 additions and 2 deletions

View file

@ -142,9 +142,13 @@ is($newDriver->get('label'), 'Cold, stone hard cash', 'label passed correctly to
my $drivers = $pay->getDrivers();
use Data::Dumper;
diag Dumper $drivers;
my $defaultPayDrivers = {
'WebGUI::Shop::PayDriver::Cash' => 'Cash',
'WebGUI::Shop::PayDriver::ITransact' => 'Credit Card (ITransact)',
'WebGUI::Shop::PayDriver::Cash' => 'Cash',
'WebGUI::Shop::PayDriver::ITransact' => 'Credit Card (ITransact)',
'WebGUI::Shop::PayDriver::PayPal::PayPalStd' => 'PayPal',
};
cmp_deeply( $drivers, $defaultPayDrivers, 'getDrivers returns the default PayDrivers');