diff options
author | ivan <ivan> | 2002-12-17 19:14:09 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-12-17 19:14:09 +0000 |
commit | 7d8253e2ac3dda28c8013aca209570d3e4496567 (patch) | |
tree | 391fe0115c2a213a6794a7b7fb2c3284f5bec659 /t2/check.t | |
parent | 449221e481daad31410736547ee5741a00f0f4b8 (diff) |
finally working
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"; -} |