Add an exists test for the things we loop over

p4raw-id: //depot/perl@23538

diff --git a/lib/Config.t b/lib/Config.t
index d2451b8..24e3cab 100644 (file)
--- 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')");