Commit | Line | Data |
---|---|---|
80305961 | 1 | #!./perl |
80305961 YO |
2 | |
3 | BEGIN { | |
4 | chdir 't' if -d 't'; | |
5 | @INC = '../lib'; | |
6 | } | |
7 | ||
67261566 YO |
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 YO |
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"; |