diff options
Diffstat (limited to 't/30parse.t')
| -rwxr-xr-x | t/30parse.t | 10 |
1 files changed, 6 insertions, 4 deletions
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> |