diff options
Diffstat (limited to 't2/check.t')
-rw-r--r-- | t2/check.t | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/t2/check.t b/t2/check.t deleted file mode 100644 index e253e24..0000000 --- a/t2/check.t +++ /dev/null @@ -1,30 +0,0 @@ -BEGIN { $| = 1; print "1..1\n"; } - -use Business::OnlinePayment; - -# checks are broken it seems -my $ctx = new Business::OnlinePayment("PaymentsGateway"); -$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"; -} |