From d10bb151b5056823b95b3611bf997c4ddfae0f57 Mon Sep 17 00:00:00 2001 From: "Michael G. Schwern" Date: Mon, 2 Sep 2002 15:29:07 -0700 Subject: test grandfathered Config variables Message-ID: <20020903052907.GR8061@ool-18b93024.dyn.optonline.net> p4raw-id: //depot/perl@17837 --- lib/Config.t | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Config.t b/lib/Config.t index afc3c4a41c..4678769ff2 100644 --- 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"); -- cgit v1.2.1