X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=t%2Fcrypt_bad_card.t;h=1db7c4b9f8f0deaf82c50203bf4693a75728deb2;hb=68a1e22789d07aae6ebfdbf59ffe608a62c6d71b;hp=7089078d56ffc4597d7c2dda3560e2c819af16d5;hpb=e9a8450242559f58aa2535a489d7a7acc85790e2;p=Business-OnlinePayment-eSelectPlus.git 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"; }