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

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

# 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 = *-;
'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";
Commit	Line	Data
80305961	1	#!./perl
80305961	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7
67261566	8	# WARNING: Do not use anymodules as part of this test code.
	9	# We could get action at a distance that would invalidate the tests.
	10
	11	print "1..2\n";
	12
	13	# This tests whether glob assignment fails to load the tie.
80305961	14	X = -;
67261566	15	'X'=~/(?<X>X)/;
	16	print eval '*X{HASH}{X} \|\| 1' ? "" :"not ","ok ",++$test,"\n";
	17
	18	# And since its a similar case we check %! as well
	19	Y = !;
	20	print 0<keys(%Y) ? "" :"not ","ok ",++$test,"\n";