t/Dummy.t

   1 # Before `make install' is performed this script should be runnable with
   2 # `make test'. After `make install' it should work as `perl eWay.t'
   3
   4 use Test;
   5 BEGIN { plan tests => 6 };
   6 use Business::OnlineThirdPartyPayment::Dummy;
   7
   8 # a test transaction
   9 my ($tx, $txnum, $res);
  10 ok($tx = new Business::OnlineThirdPartyPayment("Dummy"));
  11 ok(
  12     $tx->content(
  13         type           => 'CC',
  14         login          => '87654321',
  15         action         => 'Authorization Only',
  16         description    => 'Business::OnlineThirdPartyPayment test',
  17         amount         => '49.95',
  18         invoice_number => '100100',
  19         name           => 'Tofu Beast',
  20         card_number    => '4646464646464646',
  21         expiration     => '11/08',
  22     )
  23 );
  24 ok($tx->test_transaction(1));
  25 ok($tx->submit());
  26 ok($tx->is_success());
  27 ok($tx->authorization(), 'Authorized');
  28