From dee8162ed1772cded92c39a188dd584bd847318f Mon Sep 17 00:00:00 2001
From: fbriere <fbriere>
Date: Sat, 19 Aug 2006 18:35:35 +0000
Subject: Added backwards-compatible support for avs_response

---
 t/avs_response.t | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 t/avs_response.t

(limited to 't/avs_response.t')

diff --git a/t/avs_response.t b/t/avs_response.t
new file mode 100755
index 0000000..5720aa6
--- /dev/null
+++ b/t/avs_response.t
@@ -0,0 +1,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');
+
+
-- 
cgit v1.2.1