test grandfathered Config variables

Message-ID: <20020903052907.GR8061@ool-18b93024.dyn.optonline.net>

p4raw-id: //depot/perl@17837

diff --git a/lib/Config.t b/lib/Config.t
index afc3c4a..4678769 100644 (file)
--- a/lib/Config.t
+++ b/lib/Config.t
@@ -4,7 +4,7 @@ BEGIN {
     require "./test.pl";
 }
 
-plan tests => 23;
+plan tests => 29;
 
 use_ok('Config');
 
@@ -16,6 +16,16 @@ ok(each %Config);
 
 is($Config{PERL_REVISION}, 5, "PERL_REVISION is 5");
 
+# Check that old config variable names are aliased to their new ones.
+my %grandfathers = ( PERL_VERSION       => 'PATCHLEVEL',
+                     PERL_SUBVERSION    => 'SUBVERSION',
+                     PERL_CONFIG_SH     => 'CONFIG'
+                   );
+while( my($new, $old) = each %grandfathers ) {
+    isnt($Config{$new}, undef,       "$new is defined");
+    is($Config{$new}, $Config{$old}, "$new is aliased to $old");
+}
+
 ok( exists $Config{cc},      "has cc");
 
 ok( exists $Config{ccflags}, "has ccflags");