From 7af3e137d97474aa364a585359bbfb400f0594cf Mon Sep 17 00:00:00 2001
From: fbriere <fbriere>
Date: Mon, 13 Feb 2006 21:10:31 +0000
Subject: Initial import

---
 t/30parse.t | 163 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 163 insertions(+)
 create mode 100755 t/30parse.t

(limited to 't/30parse.t')

diff --git a/t/30parse.t b/t/30parse.t
new file mode 100755
index 0000000..8780731
--- /dev/null
+++ b/t/30parse.t
@@ -0,0 +1,163 @@
+use Test::More tests => 1 + 2 * 5;
+
+BEGIN { use_ok('Business::OnlinePayment') };
+
+
+use constant FIELDS => (qw( result_code authorization total_amount ));
+
+use constant RESULTS => (
+		[ 1, '2000', 'T00000', 3.88 ],
+		[ 0, '98e05', undef, 3.88 ],
+	);
+
+
+my $txn = new Business::OnlinePayment 'InternetSecure', merchant_id => '0000';
+
+$/ = '';
+foreach (RESULTS) {
+	my @results = @$_;
+
+	my $xml = <DATA>;
+	$txn->parse_response($xml);
+
+	is($txn->server_response, $xml, 'server_response');
+
+	if (shift @results) {
+		ok($txn->is_success, 'expecting success');
+	} else {
+		ok(!$txn->is_success, 'expecting failure');
+	}
+
+	foreach (FIELDS) {
+		no strict 'refs';
+		is($txn->$_, shift @results, $_);
+	}
+}
+
+
+__DATA__
+<?xml version="1.0" encoding="UTF-8"?>
+<TranxResponse>
+  <MerchantNumber>4994</MerchantNumber>
+  <ReceiptNumber>1096019995.5012</ReceiptNumber>
+  <SalesOrderNumber>0</SalesOrderNumber>
+  <xxxName>John Smith</xxxName>
+  <Date>2003/12/17 09:59:58</Date>
+  <CardType>Test Card Number</CardType>
+  <Page>2000</Page>
+  <ApprovalCode>T00000</ApprovalCode>
+  <Verbiage>Test Approved</Verbiage>
+  <TotalAmount>3.88</TotalAmount>
+  <Products>
+    <product>
+      <code>001</code>
+      <description>Test Product 1</description>
+      <quantity>1</quantity>
+      <price>3.10</price>
+      <subtotal>3.10</subtotal>
+      <flags>
+        <flag>{USD}</flag>
+	<flag>{GST}</flag>
+	<flag>{TEST}</flag>
+      </flags>
+    </product>
+    <product>
+      <code>010</code>
+      <description>Test Product 2</description>
+      <quantity>1</quantity>
+      <price>0.20</price>
+      <subtotal>0.20</subtotal>
+      <flags>
+	<flag>{GST}</flag>
+	<flag>{TEST}</flag>
+      </flags>
+    </product>
+    <product>
+      <code>020</code>
+      <description>Test Product 3</description>
+      <quantity>1</quantity>
+      <price>0.33</price>
+      <subtotal>0.33</subtotal>
+      <flags>
+	<flag>{GST}</flag>
+	<flag>{TEST}</flag>
+      </flags>
+    </product>
+    <product>
+      <code>GST</code>
+      <description>Canadian GST Charged</description>
+      <quantity>1</quantity>
+      <price>0.25</price>
+      <subtotal>0.25</subtotal>
+      <flags>
+        <flag>{TAX}</flag>
+	<flag>{CALCULATED}</flag>
+      </flags>
+    </product>
+  </Products>
+  <DoubleColonProducts>3.10::1::001::Test Product 1::{USD}{GST}{TEST}|0.20::1::010::Test Product 2::{GST}{TEST}|0.33::1::020::Test Product 3::{GST}{TEST}|0.25::1::GST::Canadian GST Charged::{TAX}{CALCULATED}</DoubleColonProducts>
+  <AVSResponseCode />
+  <CVV2ResponseCode />
+</TranxResponse>
+
+<?xml version="1.0" encoding="UTF-8"?>
+<TranxResponse>
+  <MerchantNumber>4994</MerchantNumber>
+  <ReceiptNumber>1096021915.5853</ReceiptNumber>
+  <SalesOrderNumber>729</SalesOrderNumber>
+  <xxxName>John Smith</xxxName>
+  <Date>2003/12/17 10:31:58</Date>
+  <CardType>VI</CardType>
+  <Page>98e05</Page>
+  <ApprovalCode />
+  <Verbiage>Incorrect Card Number - Please Retry</Verbiage>
+  <TotalAmount>3.88</TotalAmount>
+  <Products>
+    <product>
+      <code>001</code>
+      <description>Test Product 1</description>
+      <quantity>1</quantity>
+      <price>3.10</price>
+      <subtotal>3.10</subtotal>
+      <flags>
+        <flag>{USD}</flag>
+	<flag>{GST}</flag>
+      </flags>
+    </product>
+    <product>
+      <code>010</code>
+      <description>Test Product 2</description>
+      <quantity>1</quantity>
+      <price>0.20</price>
+      <subtotal>0.20</subtotal>
+      <flags>
+	<flag>{GST}</flag>
+      </flags>
+    </product>
+    <product>
+      <code>020</code>
+      <description>Test Product 3</description>
+      <quantity>1</quantity>
+      <price>0.33</price>
+      <subtotal>0.33</subtotal>
+      <flags>
+	<flag>{GST}</flag>
+      </flags>
+    </product>
+    <product>
+      <code>GST</code>
+      <description>Canadian GST Charged</description>
+      <quantity>1</quantity>
+      <price>0.25</price>
+      <subtotal>0.25</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>
+  <AVSResponseCode />
+  <CVV2ResponseCode />
+</TranxResponse>
+
-- 
cgit v1.2.1