diff options
author | ivan <ivan> | 2001-11-14 21:44:07 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-11-14 21:44:07 +0000 |
commit | ba95dc2cdb193b513fcdd4ad33ae4b523ec0f32a (patch) | |
tree | 637ffee5e1abdaa4910bfd9675c3a5d2dc1cf48a /t | |
parent | a86f919685ea69045204881c6ece8155e7ebf816 (diff) |
disable t/credit_card.t test: testdrive account no longer validBUSINESS_ONLINEPAYMENT_AUTHORIZENET_3_01
Diffstat (limited to 't')
-rw-r--r-- | t/credit_card.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/credit_card.t b/t/credit_card.t index aa8b35c..df6c001 100644 --- a/t/credit_card.t +++ b/t/credit_card.t @@ -1,12 +1,14 @@ BEGIN { $| = 1; print "1..1\n"; } +print "ok 1 # Skipped: need a valid Authorize.Net login/password to test\n"; exit; + use Business::OnlinePayment; my $tx = new Business::OnlinePayment("AuthorizeNet"); $tx->content( type => 'VISA', - login => 'testdrive', - password => 'testdrive', + login => 'testdrive', # CHANGE THESE TO TEST + password => 'testdrive', # action => 'Normal Authorization', description => 'Business::OnlinePayment visa test', amount => '49.95', @@ -19,7 +21,7 @@ $tx->content( state => 'UT', zip => '84058', card_number => '4007000000027', - expiration => '08/26', + expiration => '08/06', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); |