diff options
| author | fbriere <fbriere> | 2006-02-16 23:35:10 +0000 |
|---|---|---|
| committer | fbriere <fbriere> | 2006-02-16 23:35:10 +0000 |
| commit | acdc35f546edd2b02366ee78444f94ed6871bef2 (patch) | |
| tree | bb037dc99913c1235898beede2091e6158cd13df /t | |
| parent | 7d2b4fcded0d2db27ee37d8a2f3421e343eb6cd5 (diff) | |
Added support for <Error>
Diffstat (limited to '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> |