From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 25 Nov 2004 21:37:23 +0000 (+0000)
Subject: Add an exists test for the things we loop over
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e89403c13d9f4c0b1c205624cee0d34bde4b7b77;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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')");