diff options
Diffstat (limited to 't2')
| -rw-r--r-- | t2/bad_check.t | 33 | ||||
| -rw-r--r-- | t2/check.t | 30 |
2 files changed, 0 insertions, 63 deletions
diff --git a/t2/bad_check.t b/t2/bad_check.t deleted file mode 100644 index 3ce505e..0000000 --- a/t2/bad_check.t +++ /dev/null @@ -1,33 +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', - account_number => 'badaccountnumber', - #routing_code => '123456789', - routing_code => 'badroutingcode', - 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 "not ok 1\n"; -} else { - #warn $ctx->error_message(); - print "ok 1\n"; -} 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"; -} |