t/sales_number.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   <SalesOrderNumber>42</SalesOrderNumber>
  16 </TranxResponse>
  17 __EOF__
  18
  19 is($txn->order_number, 42, 'order_number');
  20 is($txn->sales_number, 42, 'sales_number');
  21
  22