t/introspection.t

   1 #!/usr/bin/perl -w
   2
   3 use Test::More;
   4
   5 eval 'use Business::OnlinePayment 3.01;';
   6 if ( $@ ) {
   7   plan skip_all => 'Business::OnlinePayment 3.01+ not available';
   8 } else {
   9   plan tests => 1;
  10 }
  11
  12 my($login, $password, @opts) = ('TESTMERCHANT', '',
  13                                 'default_Origin' => 'RECURRING' );
  14
  15 my $tx = Business::OnlinePayment->new("IPPay", @opts);
  16
  17 ok( $tx->info('CC_void_requires_card') == 1, 'CC_void_requires_card introspection' );