From: fbriere <fbriere>
Date: Fri, 17 Feb 2006 03:25:19 +0000 (+0000)
Subject: Work around bug #17687
X-Git-Tag: V0_01~25
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=5974a88df6f696ff765f0467b64c15bb80206caf;p=Business-OnlinePayment-InternetSecure.git

Work around bug #17687
---

diff --git a/t/20emit.t b/t/20emit.t
index 7fac2d6..8ce5c8a 100755
--- a/t/20emit.t
+++ b/t/20emit.t
@@ -71,13 +71,19 @@ use constant TRANSACTIONS => (
 
 my $txn = new Business::OnlinePayment 'InternetSecure', merchant_id => '0000';
 
-$/ = '';
 foreach (TRANSACTIONS) {
 	$txn->test_transaction(delete $_->{_test});
 	$txn->content(%$_);
+
+	my $data = do {
+		# Work around bug #17687
+		local $/ = '';
+		scalar <DATA>;
+	};
+
 	is_deeply(
 		xml_in(Encode::encode('utf8', $txn->to_xml)),
-		xml_in(scalar <DATA>)
+		xml_in($data)
 	); 
 }