$self->tax_amounts( {} );
}
+# Backwards-compatible support for avs_response
+sub avs_response { shift()->avs_code(@_) }
+
+
# Combine get_fields and remap_fields for convenience. Unlike OnlinePayment's
# remap_fields, this doesn't modify content(), and can therefore be called
# more than once. Also, unlike OnlinePayment's get_fields in 3.x, this doesn't
--- /dev/null
+# 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');
+
+