From 40b2c015f7346c231e5d26c0f0fbbf59f964a1c0 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 30 Aug 2002 09:27:28 +0000
Subject: [PATCH] switch to "D" industry code and some test data from lab

---
 VirtualNet.pm   |  3 ++-
 t/credit_card.t | 21 +++++++++++++++++----
 2 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/VirtualNet.pm b/VirtualNet.pm
index 81671c0..3b5d6dd 100644
--- a/VirtualNet.pm
+++ b/VirtualNet.pm
@@ -28,7 +28,8 @@ $ETB = pack("C", 0x17 );
 #$EOT = pack("C", 0x04 );
 
 ##should be configurable **FIXME**
-my $industry_code = '0';
+#my $industry_code = '0';
+my $industry_code = 'D'; #Direct Marketing
 
 sub set_defaults {
     my $self = shift;
diff --git a/t/credit_card.t b/t/credit_card.t
index 84e729c..b36c247 100644
--- a/t/credit_card.t
+++ b/t/credit_card.t
@@ -18,6 +18,7 @@ my $tx = new Business::OnlinePayment("VirtualNet",
     'terminal'    => '1515',
     'mcc'         => '5999', #merchant category code
     'bin'         => '999995', #acquirer BIN
+    #'bin'         => '999700', #acquirer BIN
     'zip'         => '543211420', #merchant zip (US) or assigned city code
 
     'agent'       => '000000', #agent bank
@@ -35,18 +36,24 @@ $tx->content(
     type           => 'CC',
     action         => 'Authorization only',
     description    => 'Business::OnlinePayment visa test',
-    amount         => '10.00',
+    #amount         => '10.00',
+    amount         => '3.20',
     invoice_number => '100100',
     customer_id    => 'jsk',
     name           => 'Tofu Beast',
     first_name     => 'Tofu',
     last_name      => 'Beast',
-    address        => '123 Anystreet',
+    address        => '8320 Anystreet',
     city           => 'Anywhere',
     state          => 'UT',
-    zip            => '84058',
+    zip            => '84284',
     card_number    => '4111111111111111',
     expiration     => '09/03',
+#    card_number    => '5499740000000057',
+#    expiration     => '01/05',
+#    card_number    => '6011000993026909',
+#    expiration     => '01/04',
+
 );
 $tx->test_transaction(1); # test, dont really charge (doesn't do anything with VirtualNet)
 $tx->submit();
@@ -64,9 +71,15 @@ if($tx->is_success()) {
 $tx->content(
   type           => 'CC',
   action         => 'Post Authorization',
-  amount         => '999910.00',
+  #amount         => '10.00',
+  amount         => '3.20',
   card_number    => '4111111111111111',
   expiration     => '09/03',
+#  card_number    => '5499740000000057',
+#  expiration     => '01/05',
+#   card_number    => '6011000993026909',
+#   expiration     => '01/04',
+
   authorization             => $tx->authorization,
   authorization_source_code => $tx->authorization_source_code,
   returned_ACI              => $tx->returned_ACI,
-- 
2.11.0