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 | |
| parent | a86f919685ea69045204881c6ece8155e7ebf816 (diff) | |
disable t/credit_card.t test: testdrive account no longer validBUSINESS_ONLINEPAYMENT_AUTHORIZENET_3_01
| -rw-r--r-- | AuthorizeNet.pm | 4 | ||||
| -rw-r--r-- | Changes | 3 | ||||
| -rw-r--r-- | t/credit_card.t | 8 |
3 files changed, 9 insertions, 6 deletions
diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index 80fcbbb..00c8962 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::AuthorizeNet; -# $Id: AuthorizeNet.pm,v 1.1 2001-09-01 21:47:31 ivan Exp $ +# $Id: AuthorizeNet.pm,v 1.2 2001-11-14 21:44:07 ivan Exp $ use strict; use Business::OnlinePayment; @@ -13,7 +13,7 @@ require Exporter; @ISA = qw(Exporter AutoLoader Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); -$VERSION = '3.00'; +$VERSION = '3.01'; sub set_defaults { my $self = shift; @@ -1,7 +1,8 @@ Revision history for Perl extension Business::OnlinePayment::AuthorizeNet. -3.01 unreleased +3.01 Wed Nov 14 13:42:06 2001 - update README + - disable t/credit_card.t test; testdrive account no longer valid 3.00 Sat Sep 1 13:29:34 2001 - new maintainer, updated for Authorize.Net API 3.0 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(); |