X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=t%2F30parse.t;h=619846809d9f6bec3358b047e24bd3954ac6444d;hb=33cf2e33b4bbd232498303166d1852e9425cd310;hp=7962c1a7252a68ce0e1f11639f18d71c8a015e33;hpb=d36a582af7a5f74a6a450c45f8838711eb6f89ab;p=Business-OnlinePayment-InternetSecure.git
diff --git a/t/30parse.t b/t/30parse.t
index 7962c1a..6198468 100755
--- a/t/30parse.t
+++ b/t/30parse.t
@@ -1,10 +1,12 @@
+# vim:set syntax=perl:
+
use constant FIELDS => qw(
result_code authorization error_message
receipt_number sales_number
date
card_type
avs_response cvv2_response
- total_amount
+ total_amount tax_amounts
);
use constant RESULTS => (
@@ -12,7 +14,7 @@ use constant RESULTS => (
is_success => 1,
result_code => '2000',
authorization => 'T00000',
- error_message => 'Test Approved',
+ error_message => undef,
receipt_number => '1096019995.5012',
sales_number => 0,
date => '2003/12/17 09:59:58',
@@ -20,6 +22,7 @@ use constant RESULTS => (
avs_response => undef,
cvv2_response => undef,
total_amount => 3.88,
+ tax_amounts => { GST => 0.25 },
uuid => 'f81d4fae-7dec-11d0-a765-00a0c91e6bf6',
guid => 'f81d4fae-7dec-11d0-a765-00a0c91e6bf6',
},
@@ -35,6 +38,8 @@ use constant RESULTS => (
avs_response => undef,
cvv2_response => undef,
total_amount => 3.88,
+ tax_amounts => { GST => 0.25,
+ PST => 0.27 },
uuid => undef,
guid => undef,
},
@@ -64,7 +69,7 @@ foreach my $results (RESULTS) {
foreach (FIELDS) {
no strict 'refs';
- is($txn->$_, $results->{$_}, $_);
+ is_deeply($txn->$_, $results->{$_}, $_);
}
}
@@ -158,6 +163,7 @@ __DATA__
{USD}
{GST}
+ {PST}
@@ -168,6 +174,7 @@ __DATA__
0.20
{GST}
+ {PST}
@@ -178,6 +185,7 @@ __DATA__
0.33
{GST}
+ {PST}
@@ -191,8 +199,19 @@ __DATA__
{CALCULATED}
+
+ PST
+ PST Charged
+ 1
+ 0.27
+ 0.27
+
+ {TAX}
+ {CALCULATED}
+
+
- 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}
+ 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}