From 1b869470cbe552a25ac715cd29c6412888677771 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 13 Mar 2002 16:11:55 +0000 Subject: working post auth support --- t/check.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 't/check.t') diff --git a/t/check.t b/t/check.t index a22b727..29344f6 100644 --- a/t/check.t +++ b/t/check.t @@ -1,6 +1,6 @@ BEGIN { $| = 1; print "1..1\n"; } -print "ok 1 # Skipped: testdrive account won't accept ACH transactions\n"; exit; +print "ok 1 # Skipped: testing account won't accept ACH transactions\n"; exit; use Business::OnlinePayment; @@ -8,8 +8,8 @@ use Business::OnlinePayment; my $ctx = new Business::OnlinePayment("AuthorizeNet"); $ctx->content( type => 'CHECK', - login => 'testdrive', - password => 'testdrive', + login => 'testing', + password => 'testing', action => 'Normal Authorization', amount => '49.95', invoice_number => '100100', -- cgit v1.2.1