From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 25 Nov 2004 20:10:43 +0000 (+0000)
Subject: Test the currently working virtual %Config entries
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a644ec488eb5f4499bbbcf821abc0e1ab10ed06c;p=p5sagit%2Fp5-mst-13.2.git

Test the currently working virtual %Config entries

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

diff --git a/lib/Config.t b/lib/Config.t
index e1d7207..df2b55d 100644
--- a/lib/Config.t
+++ b/lib/Config.t
@@ -205,10 +205,20 @@ is($Config{sig_num_init}  =~ tr/,/,/, $Config{sig_size}, "sig_num_init size");
 is($Config{sig_name_init} =~ tr/,/,/, $Config{sig_size}, "sig_name_init size");
 
 # Test the troublesome virtual stuff
-foreach my $pain (qw(byteorder)) {
-  # No config var is named with anything that is a regexp metachar"
-  my @result = Config::config_re($pain);
-  is (scalar @result, 1, "single result for config_re('$pain')");
-  like ($result[0], qr/^$pain=(['"])$Config{$pain}\1$/, # grr '
-				"which is the expected result for $pain");
+my @virtual = qw(byteorder ccflags_nolargefiles);
+
+foreach my $pain (@virtual) {
+  # No config var is named with anything that is a regexp metachar
+  my @result = $Config{$pain};
+  is (scalar @result, 1, "single result for \$config('$pain')");
+
+ TODO: {
+    local $TODO;
+    $TODO = "No regexp lookup for $pain yet" unless $pain eq 'byteorder';
+
+    @result = Config::config_re($pain);
+    is (scalar @result, 1, "single result for config_re('$pain')");
+    like ($result[0], qr/^$pain=(['"])$Config{$pain}\1$/, # grr '
+	  "which is the expected result for $pain");
+  }
 }