diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/card.t | 23 | ||||
| -rw-r--r-- | t/check.t | 3 | ||||
| -rw-r--r-- | t/lib/test_account.pl | 42 |
3 files changed, 52 insertions, 16 deletions
@@ -1,9 +1,9 @@ #!/usr/bin/perl -w use Test::More; +require "t/lib/test_account.pl"; -my($login, $password, @opts) = ('TESTMERCHANT', '', - 'default_Origin' => 'RECURRING' ); +my($login, $password, %opt) = test_account_or_skip('card'); plan tests => 43; use_ok 'Business::OnlinePayment'; @@ -35,7 +35,7 @@ my $voidable_amount = 0; # valid card number test { - my $tx = Business::OnlinePayment->new("IPPay", @opts); + my $tx = Business::OnlinePayment->new("IPPay", %opt); $tx->content(%content); tx_check( $tx, @@ -55,7 +55,7 @@ my $voidable_amount = 0; # invalid card number test { - my $tx = Business::OnlinePayment->new("IPPay", @opts); + my $tx = Business::OnlinePayment->new("IPPay", %opt); $tx->content(%content, card_number => "4111111111111112" ); tx_check( $tx, @@ -71,7 +71,7 @@ my $voidable_amount = 0; # authorization only test { - my $tx = Business::OnlinePayment->new("IPPay", @opts); + my $tx = Business::OnlinePayment->new("IPPay", %opt); $tx->content(%content, action => 'authorization only', amount => '3.00' ); tx_check( $tx, @@ -91,7 +91,7 @@ my $voidable_amount = 0; # post authorization test SKIP: { - my $tx = new Business::OnlinePayment( "IPPay", %opts ); + my $tx = new Business::OnlinePayment( "IPPay", %opt ); $tx->content( %content, 'action' => "post authorization", 'amount' => $postable_amount, # not required 'order_number' => $postable, @@ -110,7 +110,7 @@ SKIP: { # void test SKIP: { - my $tx = new Business::OnlinePayment( "IPPay", %opts ); + my $tx = new Business::OnlinePayment( "IPPay", %opt ); $tx->content( %content, 'action' => "Void", 'order_number' => $voidable, 'authorization' => $voidable_auth, @@ -129,7 +129,7 @@ SKIP: { # credit test SKIP: { - my $tx = new Business::OnlinePayment( "IPPay", %opts ); + my $tx = new Business::OnlinePayment( "IPPay", %opt ); $tx->content( %content, 'action' => "credit"); tx_check( $tx, @@ -178,10 +178,3 @@ sub tx_info { ); } -sub expiration_date { - my($month, $year) = (localtime)[4,5]; - $year++; # So we expire next year. - $year %= 100; # y2k? What's that? - - return sprintf("%02d/%02d", $month, $year); -} @@ -1,8 +1,9 @@ #!/usr/bin/perl -w use Test::More; +require "t/lib/test_account.pl"; -my($login, $password, %opt) = ('TESTMERCHANT', '', 'Origin' => 'RECURRING' ); +my($login, $password, %opt) = test_account_or_skip('check'); plan tests => 16; use_ok 'Business::OnlinePayment'; diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl new file mode 100644 index 0000000..06a2428 --- /dev/null +++ b/t/lib/test_account.pl @@ -0,0 +1,42 @@ +sub test_account_or_skip { + my $suffix = shift; + my($login, $password, %opt) = test_account($suffix); + + unless( defined $login ) { + plan skip_all => "No test account"; + } + + return($login, $password, %opt); +} + +sub test_account { + my $suffix = shift || 'card'; + + my($login, $password) = ('TESTMERCHANT', ''); + + my %opt; + if ( $suffix eq 'check ' ) { + %opt = ('Origin' => 'RECURRING'); + } else { + %opt = ('default_Origin' => 'RECURRING'); + } + + return($login, $password, %opt); +} + +sub expiration_date { + my($month, $year) = (localtime)[4,5]; + $month += 1; + $year++; # So we expire next year. + $year %= 100; # y2k? What's that? + + return sprintf("%02d/%02d", $month, $year); +} + +#sub tomorrow { +# my($day, $month, $year) = (localtime(time+86400))[3..5]; +# return sprintf("%04d-%02d-%02d", $year+1900, ++$month, $day); +#} + +1; + |