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