diff options
| author | ivan <ivan> | 2011-03-01 21:40:25 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-03-01 21:40:25 +0000 |
| commit | c68ddf7bf88ab9a2c8c3b5fbb90f48b7b81828bf (patch) | |
| tree | efb1708109db2a9dce5e9b591e7bafc42f538ab0 /t/crypt_bad_card.t | |
| parent | 68a1e22789d07aae6ebfdbf59ffe608a62c6d71b (diff) | |
0.03
Diffstat (limited to 't/crypt_bad_card.t')
| -rw-r--r-- | t/crypt_bad_card.t | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/t/crypt_bad_card.t b/t/crypt_bad_card.t deleted file mode 100644 index 1db7c4b..0000000 --- a/t/crypt_bad_card.t +++ /dev/null @@ -1,35 +0,0 @@ -BEGIN { - $| = 1; print "1..1\n"; - $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; - $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; -} - -eval "use Crypt::SSLeay;"; -if ( $@ ) { - print "ok 1 # Skipped: Crypt::SSLeay is not installed\n"; exit; -} - -use Business::OnlinePayment; - -my $tx = new Business::OnlinePayment("eSelectPlus"); - -$tx->content( - type => 'VISA', - login => 'moot', - password => 'moot', - action => 'Normal Authorization', - amount => '0.54', - card_number => '4242424242424242', - 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 { - print "ok 1\n"; -} - |