t/avs_response.t

   1 # vim:set syntax=perl:
   2
   3 use Test::More tests => 1 + 2;
   4
   5 BEGIN { use_ok('Business::OnlinePayment') };
   6
   7
   8 my $txn = new Business::OnlinePayment 'InternetSecure', merchant_id => '0000';
   9
  10 $txn->parse_response(<<__EOF__);
  11 <?xml version="1.0" encoding="UTF-8"?>
  12 <TranxResponse>
  13   <CardType>Test Card Number</CardType>
  14   <Page>2000</Page>
  15   <AVSResponseCode>Z</AVSResponseCode>
  16 </TranxResponse>
  17 __EOF__
  18
  19 is($txn->avs_code, 'Z', 'avs_code');
  20 is($txn->avs_response, 'Z', 'avs_response');
  21
  22