Added backwards-compatible support for avs_response

[Business-OnlinePayment-InternetSecure.git] / t / 40live.t

diff --git a/t/40live.t b/t/40live.t
index 4d59f68..3f510f9 100755 (executable)
--- a/t/40live.t
+++ b/t/40live.t
@@ -1,3 +1,5 @@
+# vim:set syntax=perl:
+
 use Test::More;
 
 BEGIN {
@@ -17,16 +19,27 @@ $txn->test_transaction(1);
 
 $txn->content(
                action          => 'Normal Authorization',
+
                type            => 'Visa',
                card_number     => '0000000000000000',
-               exp_date        => '2004/07',
+               expiration      => '2004/07',
+
                name            => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re",
+               address         => '123 Nowhere',
+               city            => 'Metropolis',
+               state           => 'QC',
+               zip             => 'A1A 1A1',
+               country         => 'CA',
+               phone           => '123-456-7890',
+               email           => 'fbriere@fbriere.net',
+
                amount          => 0.01,
+               description     => 'Test transaction',
        );
 
 $txn->submit;
 
-is($txn->result_code, '2000', 'is result_code 2000?');
+is($txn->result_code, '2000', 'Result code is ok');
 is($txn->cardholder, "Fr\x{e9}d\x{e9}ric Bri\x{e8}re",
-       'is cardholder encoded properly?');
+       'Cardholder name is encoded properly');