Rename sales_order_number() to order_number()

[Business-OnlinePayment-InternetSecure.git] / t / 30parse.t

diff --git a/t/30parse.t b/t/30parse.t
index 8780731..2917a47 100755 (executable)
--- a/t/30parse.t
+++ b/t/30parse.t
@@ -1,13 +1,14 @@
-use Test::More tests => 1 + 2 * 5;
+use Test::More tests => 1 + 2 * 6;
 
 BEGIN { use_ok('Business::OnlinePayment') };
 
 
-use constant FIELDS => (qw( result_code authorization total_amount ));
+use constant FIELDS => (qw( result_code authorization total_amount
+                               error_message ));
 
 use constant RESULTS => (
-               [ 1, '2000', 'T00000', 3.88 ],
-               [ 0, '98e05', undef, 3.88 ],
+               [ 1, '2000', 'T00000', 3.88, 'Test Approved' ],
+               [ 0, '98e05', undef, 3.88, 'Real error message' ],
        );
 
 
@@ -111,6 +112,7 @@ __DATA__
   <Page>98e05</Page>
   <ApprovalCode />
   <Verbiage>Incorrect Card Number - Please Retry</Verbiage>
+  <Error>Real error message</Error>
   <TotalAmount>3.88</TotalAmount>
   <Products>
     <product>