Warning bit fixes to t/op/caller.t

[p5sagit/p5-mst-13.2.git] / t / op / regexp_namedcapture.t

diff --git a/t/op/regexp_namedcapture.t b/t/op/regexp_namedcapture.t
index d2db2d7..b9315cc 100644 (file)
--- a/t/op/regexp_namedcapture.t
+++ b/t/op/regexp_namedcapture.t
@@ -1,13 +1,20 @@
 #!./perl
-#
-# Tests to make sure the regexp engine doesn't run into limits too soon.
-#
 
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
 }
 
-print "1..1\n";
+# WARNING: Do not use anymodules as part of this test code.
+# We could get action at a distance that would invalidate the tests.
+
+print "1..2\n";
+
+# This tests whether glob assignment fails to load the tie.
 *X = *-;
-print eval '*X{HASH}{X} || 1' ? "ok\n" :"not ok\n";
+'X'=~/(?<X>X)/;
+print eval '*X{HASH}{X} || 1' ? "" :"not ","ok ",++$test,"\n";
+
+# And since its a similar case we check %! as well
+*Y = *!;
+print 0<keys(%Y) ? "" :"not ","ok ",++$test,"\n";