diff options
| author | Robin Barker <RMBarker@cpan.org> | 2004-06-09 13:02:01 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-09 15:57:58 +0000 |
| commit | 0c6e7072ba51b7173484f5077541fbae1a031af0 (patch) | |
| tree | 9492016af6ee0df505a5c53522d65d8abfb652bd /lib/Config.t | |
| parent | 7d8277e26ba3dacb5d0719896027eea95e497496 (diff) | |
| download | perl-0c6e7072ba51b7173484f5077541fbae1a031af0.tar.gz | |
Re: [perl #24081] invalid regexp in perl -V
Message-ID: <533D273D4014D411AB1D00062938C4D9040468F1@hotel.npl.co.uk>
with further adjustements for bleadperl
p4raw-id: //depot/perl@22921
Diffstat (limited to 'lib/Config.t')
| -rw-r--r-- | lib/Config.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/Config.t b/lib/Config.t index c32571c51b..26be9751bd 100644 --- a/lib/Config.t +++ b/lib/Config.t @@ -6,7 +6,7 @@ BEGIN { require "./test.pl"; } -plan tests => 46; +plan tests => 47; use_ok('Config'); @@ -89,6 +89,10 @@ Config::config_vars(':PERL_API_REVISION:'); my $out5 = $$out; $out->clear; +Config::config_vars('?flags'); +my $out6 = $$out; +$out->clear; + untie *STDOUT; like($out1, qr/^cc='\Q$Config{cc}\E';/, "config_vars cc"); like($out2, qr/^d_bork='UNKNOWN';/, "config_vars d_bork is UNKNOWN"); @@ -106,6 +110,9 @@ is("'9'", $api[2], "version is 9"); is("'1'", $api[1], "subversion is 1"); is("'5' ", $out5, "leading and trailing colons return just the value"); + +like($out6, qr/\bnot\s+found\b/, "config_vars with invalid regexp"); + # Read-only. undef $@; |