diff options
Diffstat (limited to 't/30parse.t')
| -rwxr-xr-x | t/30parse.t | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/t/30parse.t b/t/30parse.t index 7e8e678..3734631 100755 --- a/t/30parse.t +++ b/t/30parse.t @@ -6,7 +6,7 @@ use constant FIELDS => qw( date card_type avs_response cvv2_response - total_amount + total_amount taxes ); use constant RESULTS => ( @@ -22,6 +22,7 @@ use constant RESULTS => ( avs_response => undef, cvv2_response => undef, total_amount => 3.88, + taxes => { GST => 0.25 }, uuid => 'f81d4fae-7dec-11d0-a765-00a0c91e6bf6', guid => 'f81d4fae-7dec-11d0-a765-00a0c91e6bf6', }, @@ -37,6 +38,8 @@ use constant RESULTS => ( avs_response => undef, cvv2_response => undef, total_amount => 3.88, + taxes => { GST => 0.25, + PST => 0.27 }, uuid => undef, guid => undef, }, @@ -66,7 +69,7 @@ foreach my $results (RESULTS) { foreach (FIELDS) { no strict 'refs'; - is($txn->$_, $results->{$_}, $_); + is_deeply($txn->$_, $results->{$_}, $_); } } @@ -160,6 +163,7 @@ __DATA__ <flags> <flag>{USD}</flag> <flag>{GST}</flag> + <flag>{PST}</flag> </flags> </product> <product> @@ -170,6 +174,7 @@ __DATA__ <subtotal>0.20</subtotal> <flags> <flag>{GST}</flag> + <flag>{PST}</flag> </flags> </product> <product> @@ -180,6 +185,7 @@ __DATA__ <subtotal>0.33</subtotal> <flags> <flag>{GST}</flag> + <flag>{PST}</flag> </flags> </product> <product> @@ -193,8 +199,19 @@ __DATA__ <flag>{CALCULATED}</flag> </flags> </product> + <product> + <code>PST</code> + <description>PST Charged</description> + <quantity>1</quantity> + <price>0.27</price> + <subtotal>0.27</subtotal> + <flags> + <flag>{TAX}</flag> + <flag>{CALCULATED}</flag> + </flags> + </product> </Products> - <DoubleColonProducts>3.10::1::001::Test Product 1::{USD}{GST}|0.20::1::010::Test Product 2::{GST}|0.33::1::020::Test Product 3::{GST}|0.25::1::GST::Canadian GST Charged::{TAX}{CALCULATED}</DoubleColonProducts> + <DoubleColonProducts>3.10::1::001::Test Product 1::{USD}{GST}{PST}|0.20::1::010::Test Product 2::{GST}{PST}|0.33::1::020::Test Product 3::{GST}{PST}|0.25::1::GST::Canadian GST Charged::{TAX}{CALCULATED}|0.27::1::PST::PST Charged::{TAX}{CALCULATED}</DoubleColonProducts> <AVSResponseCode /> <CVV2ResponseCode /> </TranxResponse> |