t/Interswitchng.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 => 5 };
   6 use Business::OnlineThirdPartyPayment::Interswitchng;
   7
   8 # a test transaction
   9 my ($tx, $txnum, $res);
  10 ok($tx = new Business::OnlineThirdPartyPayment("Interswitchng"));
  11 ok(
  12     $tx->content(
  13         type           => 'CC',
  14         login          => '87654321',
  15         password       => 'secret',
  16         action         =>  'Authorization Only',
  17         description    => 'Business::OnlineThirdPartyPayment test',
  18         amount         => '49.95',
  19         reference      => '1349',
  20     )
  21 );
  22 ok($tx->test_transaction(1));
  23 ok($tx->submit());
  24 ok($tx->is_success());
  25