diff options
author | ivan <ivan> | 2005-01-11 06:49:12 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-01-11 06:49:12 +0000 |
commit | 2ad2f28ebc1bda8cebe759058c2d8ba7ad5d288b (patch) | |
tree | cb232a7c656d947059436d0083cabaf1fc886ded /t/check.t | |
parent | e93e4c62ca78567871a493aebb1094e0590dbf71 (diff) |
gateway does not support echecks or returns
Diffstat (limited to 't/check.t')
-rw-r--r-- | t/check.t | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/t/check.t b/t/check.t deleted file mode 100644 index d64d49c..0000000 --- a/t/check.t +++ /dev/null @@ -1,32 +0,0 @@ -BEGIN { $| = 1; print "1..1\n"; } - -print "ok 1 # Skipped: no ACH test yet\n"; exit; - -use Business::OnlinePayment; - -# checks are broken it seems -my $ctx = new Business::OnlinePayment("OpenECHO"); -$ctx->content( - type => 'CHECK', - login => 'testing', - password => 'testing', - action => 'Normal Authorization', - amount => '49.95', - invoice_number => '100100', - customer_id => 'jsk', - first_name => 'Tofu', - last_name => 'Beast', - account_number => '12345', - routing_code => '123456789', - bank_name => 'First National Test Bank', -); -$ctx->test_transaction(1); # test, dont really charge -$ctx->submit(); - -print $ctx->is_success()."\n"; - -if($ctx->is_success()) { - print "ok 1\n"; -} else { - print "not ok 1 (".$ctx->error_message().")\n"; -} |