X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-eSelectPlus.git;a=blobdiff_plain;f=t%2Fbad_card.t;fp=t%2Fbad_card.t;h=f1fc9d68ece53e3bf4957de487e64511e6f53092;hp=afd324b950ff51db12e351dda841611a2c5a9d9a;hb=34d2ae2ce4804ddd556e88185bdf36ab5abe2bdc;hpb=d86dd0907225727a1d299138e4758e8a77f412c4 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"; }