From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 13 Jul 2004 09:14:22 +0000 (+0000)
Subject: Check each line of config_re output.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d871aab0d757dcad09eb49601d7e4a0a29d51ef;p=p5sagit%2Fp5-mst-13.2.git

Check each line of config_re output.

p4raw-id: //depot/perl@23091
---

diff --git a/lib/Config.t b/lib/Config.t
index 26be975..68979c1 100644
--- a/lib/Config.t
+++ b/lib/Config.t
@@ -6,7 +6,7 @@ BEGIN {
     require "./test.pl";
 }
 
-plan tests => 47;
+plan 'no_plan';
 
 use_ok('Config');
 
@@ -40,7 +40,7 @@ ok(!exists $Config{d_bork},  "has no d_bork");
 
 like($Config{ivsize},     qr/^(4|8)$/, "ivsize is 4 or 8 (it is $Config{ivsize})");
 
-# byteorder is virtual, but it has rules. 
+# byteorder is virtual, but it has rules.
 
 like($Config{byteorder}, qr/^(1234|4321|12345678|87654321)$/, "byteorder is 1234 or 4321 or 12345678 or 87654321 (it is $Config{byteorder})");
 
@@ -64,8 +64,9 @@ ok(exists $Config{ccflags_nolargefiles}, "has ccflags_nolargefiles");
 
 like(Config::myconfig(),       qr/osname=\Q$Config{osname}\E/,   "myconfig");
 like(Config::config_sh(),      qr/osname='\Q$Config{osname}\E'/, "config_sh");
-like(join("\n", Config::config_re('c.*')),
-			       qr/^c.*?=/,                   'config_re' );
+foreach my $line (Config::config_re('c.*')) {
+  like($line,                  qr/^c.*?=.*$/,                   'config_re' );
+}
 
 my $out = tie *STDOUT, 'FakeOut';