Add an exists test for the things we loop over

p4raw-id: //depot/perl@23538

1 files changed, 2 insertions, 0 deletions

diff --git a/lib/Config.t b/lib/Config.t
index d2451b8354..24e3cabfbe 100644
--- a/lib/Config.t
+++ b/lib/Config.t
@@ -216,6 +216,8 @@ print "# First entry is '$first'\n";
 
 foreach my $pain ($first, @virtual) {
   # No config var is named with anything that is a regexp metachar
+  ok(exists $Config{$pain}, "\$config('$pain') exists");
+
   my @result = $Config{$pain};
   is (scalar @result, 1, "single result for \$config('$pain')");