diff options
| author | ivan <ivan> | 2010-09-19 21:07:43 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-09-19 21:07:43 +0000 |
| commit | 34d2ae2ce4804ddd556e88185bdf36ab5abe2bdc (patch) | |
| tree | 9a8c44216f5a753173c68aef57cd22923261d3e6 /t | |
| parent | d86dd0907225727a1d299138e4758e8a77f412c4 (diff) | |
0.02 contrib from DonorWare / Whizman
Diffstat (limited to 't')
| -rw-r--r-- | t/bad_card.t | 16 | ||||
| -rw-r--r-- | t/credit_card.t | 14 | ||||
| -rw-r--r-- | t/crypt_bad_card.t | 12 | ||||
| -rw-r--r-- | t/crypt_credit_card.t | 2 |
4 files changed, 22 insertions, 22 deletions
diff --git a/t/bad_card.t b/t/bad_card.t index afd324b..f1fc9d6 100644 --- a/t/bad_card.t +++ b/t/bad_card.t @@ -11,25 +11,25 @@ my $tx = new Business::OnlinePayment("eSelectPlus"); #$Business::OnlinePayment::HTTPS::DEBUG = 1; #$Business::OnlinePayment::HTTPS::DEBUG = 1; -#$Business::OnlinePayment::eSelectPlus::DEBUG = 1; -#$Business::OnlinePayment::eSelectPlus::DEBUG = 1; +$Business::OnlinePayment::eSelectPlus::DEBUG = 1; +$Business::OnlinePayment::eSelectPlus::DEBUG = 1; $tx->content( type => 'VISA', - login => 'store1', - password => 'yesguy', + login => 'moot', + password => 'moot', action => 'Normal Authorization', - amount => '32.32', + amount => '0.54', card_number => '4242424242424242', - expiration => '08/06', + expiration => '08/00', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); +# warn $tx->server_response."\n"; +# warn $tx->error_message. "\n"; if($tx->is_success()) { print "not ok 1\n"; } else { - #warn $tx->server_response."\n"; - #warn $tx->error_message. "\n"; print "ok 1\n"; } diff --git a/t/credit_card.t b/t/credit_card.t index 7cc40ac..6843155 100644 --- a/t/credit_card.t +++ b/t/credit_card.t @@ -11,17 +11,17 @@ my $tx = new Business::OnlinePayment("eSelectPlus"); #$Business::OnlinePayment::HTTPS::DEBUG = 1; #$Business::OnlinePayment::HTTPS::DEBUG = 1; -#$Business::OnlinePayment::eSelectPlus::DEBUG = 1; -#$Business::OnlinePayment::eSelectPlus::DEBUG = 1; +$Business::OnlinePayment::eSelectPlus::DEBUG = 1; +$Business::OnlinePayment::eSelectPlus::DEBUG = 1; $tx->content( type => 'VISA', - login => 'store1', - password => 'yesguy', + login => 'moot', + password => 'moot', action => 'Normal Authorization', - amount => '54.01', + amount => '0.80', card_number => '4242424242424242', - expiration => '01/06', + expiration => '01/12', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); @@ -29,7 +29,7 @@ $tx->submit(); if($tx->is_success()) { print "ok 1\n"; } else { - #warn $tx->server_response."\n"; + warn $tx->server_response."\n"; warn $tx->error_message. "\n"; print "not ok 1\n"; } diff --git a/t/crypt_bad_card.t b/t/crypt_bad_card.t index 7089078..1db7c4b 100644 --- a/t/crypt_bad_card.t +++ b/t/crypt_bad_card.t @@ -15,21 +15,21 @@ my $tx = new Business::OnlinePayment("eSelectPlus"); $tx->content( type => 'VISA', - login => 'store1', - password => 'yesguy', + login => 'moot', + password => 'moot', action => 'Normal Authorization', - amount => '32.32', + amount => '0.54', card_number => '4242424242424242', - expiration => '08/06', + expiration => '08/00', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); +# warn $tx->server_response."\n"; +# warn $tx->error_message. "\n"; if($tx->is_success()) { print "not ok 1\n"; } else { - #warn $tx->server_response."\n"; - #warn $tx->error_message. "\n"; print "ok 1\n"; } diff --git a/t/crypt_credit_card.t b/t/crypt_credit_card.t index ad458c3..a9080c0 100644 --- a/t/crypt_credit_card.t +++ b/t/crypt_credit_card.t @@ -17,7 +17,7 @@ $tx->content( login => 'store1', password => 'yesguy', action => 'Normal Authorization', - amount => '54.01', + amount => '0.80', card_number => '4242424242424242', expiration => '08/06', ); |