From acdc35f546edd2b02366ee78444f94ed6871bef2 Mon Sep 17 00:00:00 2001
From: fbriere <fbriere>
Date: Thu, 16 Feb 2006 23:35:10 +0000
Subject: Added support for <Error>

---
 t/30parse.t | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 't')

diff --git a/t/30parse.t b/t/30parse.t
index 8780731..2917a47 100755
--- 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>
-- 
cgit v1.2.1