From c10a15dabc2a36006e474f42355383c1231e571a Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 10 Sep 2002 05:33:18 +0000 Subject: -quiet "$Business::OnlinePayment::VirtualNet::DEBUG used only once" warnings in tests under old perls -fix elusive "Error in Batch in Detail Record #0003 field #19" bug: missing transactoin identifiers should default to zero-fill, not space fill --- t/bad_auth.t | 1 + t/credit_card.t | 1 + t/credit_card2.t | 1 + t/credit_card3.t | 1 + 4 files changed, 4 insertions(+) (limited to 't') diff --git a/t/bad_auth.t b/t/bad_auth.t index 9dbde52..04e25a2 100644 --- a/t/bad_auth.t +++ b/t/bad_auth.t @@ -4,6 +4,7 @@ use Business::OnlinePayment; $DEBUG = 0; $Business::OnlinePayment::VirtualNet::DEBUG = $DEBUG; +$Business::OnlinePayment::VirtualNet::DEBUG += 0; #quiet warnings with old perl # Use this merchant information for testing only. # diff --git a/t/credit_card.t b/t/credit_card.t index e766aab..ae7a1d0 100644 --- a/t/credit_card.t +++ b/t/credit_card.t @@ -4,6 +4,7 @@ use Business::OnlinePayment; $DEBUG = 0; $Business::OnlinePayment::VirtualNet::DEBUG = $DEBUG; +$Business::OnlinePayment::VirtualNet::DEBUG += 0; #quiet warnings with old perl # Use this merchant information for testing only. # diff --git a/t/credit_card2.t b/t/credit_card2.t index 8e591e6..8de3ece 100644 --- a/t/credit_card2.t +++ b/t/credit_card2.t @@ -4,6 +4,7 @@ use Business::OnlinePayment; $DEBUG = 0; $Business::OnlinePayment::VirtualNet::DEBUG = $DEBUG; +$Business::OnlinePayment::VirtualNet::DEBUG += 0; #quiet warnings with old perl # Use this merchant information for testing only. # diff --git a/t/credit_card3.t b/t/credit_card3.t index 2c351f4..92df9fd 100644 --- a/t/credit_card3.t +++ b/t/credit_card3.t @@ -4,6 +4,7 @@ use Business::OnlinePayment; $DEBUG = 0; $Business::OnlinePayment::VirtualNet::DEBUG = $DEBUG; +$Business::OnlinePayment::VirtualNet::DEBUG += 0; #quiet warnings with old perl # Use this merchant information for testing only. # -- cgit v1.2.1