t/check.t

   1 #BEGIN { $| = 1; print "1..1\n"; }
   2 use Test::More tests => 1;
   3
   4 SKIP: {
   5   skip "test account no longer available", 1;
   6
   7 use Business::OnlinePayment;
   8
   9 my $ctx = new Business::OnlinePayment("PaymentsGateway");
  10 $ctx->content(
  11     type           => 'CHECK',
  12     login          => '2000',
  13     password       => 'merchant4demo',
  14     action         => 'Normal Authorization',
  15     amount         => '49.95',
  16     invoice_number => '100100',
  17     customer_id    => 'jsk',
  18     first_name     => 'Tofu',
  19     last_name      => 'Beast',
  20     account_number => '12345',
  21     routing_code   => '321076441',
  22     bank_name      => 'First National Test Bank',
  23 );
  24 $ctx->test_transaction(1); # test, dont really charge
  25 $ctx->submit();
  26
  27 print $ctx->is_success()."\n";
  28
  29 if($ctx->is_success()) {
  30     print "ok 1\n";
  31 } else {
  32     warn $ctx->result_code. ': '. $ctx->error_message();
  33     print "not ok 1 (".$ctx->error_message().")\n";
  34 }
  35
  36 }