Test the currently working virtual %Config entries

p4raw-id: //depot/perl@23535

1 files changed, 16 insertions, 6 deletions

diff --git a/lib/Config.t b/lib/Config.t
index e1d720774e..df2b55d3a6 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");
+  }
 }