diff options
| author | plobbes <plobbes> | 2007-01-16 02:37:50 +0000 |
|---|---|---|
| committer | plobbes <plobbes> | 2007-01-16 02:37:50 +0000 |
| commit | 46e8e58cd72a6d6effd6eb8ee782ce805462c4c9 (patch) | |
| tree | 85202af706ab56e9cead98be4ac551dbe3700755 | |
| parent | bc8e95f563252b3412700153f370a0f0597b6dcf (diff) | |
- moved test case to t/credit_card.t
| -rw-r--r-- | t/bad_auth.t | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/t/bad_auth.t b/t/bad_auth.t deleted file mode 100644 index 40db574..0000000 --- a/t/bad_auth.t +++ /dev/null @@ -1,49 +0,0 @@ -BEGIN { $| = 1; print "1..1\n"; } - -use Business::OnlinePayment; - -die "set environment variables to test: PFPRO_USER, PFPRO_VENDOR, PFPRO_PWD, ". - "and optionally PFPRO_PARTNER and PFPRO_CERT_PATH\n" - unless $ENV{'PFPRO_USER'} && $ENV{'PFPRO_VENDOR'} && $ENV{'PFPRO_PWD'}; - -my $tx = new Business::OnlinePayment("PayflowPro", - 'vendor' => $ENV{PFPRO_VENDOR} , - 'partner' => ( $ENV{PFPRO_PARTNER} || 'verisign' ), - 'cert_path' => ( $ENV{PFPRO_CERT_PATH} || '.' ) , -); - -$tx->content( - type => 'VISA', - login => $ENV{'PFPRO_USER'}, - password => $ENV{'PFPRO_PWD'}, - action => 'Normal Authorization', - description => 'Business::OnlinePayment::PayflowPro visa test', - amount => '0.01', - first_name => 'Tofu', - last_name => 'Beast', - address => '123 Anystreet', - city => 'Anywhere', - state => 'UT', - zip => '84058', - country => 'US', - email => 'ivan-payflowpro@420.am', - #card_number => '4007000000027', - #card_number => '4111111111111111', - card_number => '4111111111111112', - expiration => '12/2009', -); - -$tx->test_transaction(1); - -$tx->submit(); - -if($tx->is_success()) { - print "not ok 1\n"; - $auth = $tx->authorization; - warn "********* $auth ***********\n"; -} else { - print "ok 1\n"; - warn '***** '. $tx->error_message. " *****\n"; - exit; -} - |