[MERGE] fix PERL_GLOBAL_STRUCT builds
[perl.git] / t / op / stash_parse_gv.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     require "./test.pl";
6     set_up_inc(qw(../lib));
7 }
8
9 plan( tests => 5 );
10
11 my $long  = 'x' x 100;
12 my $short = 'abcd';
13
14 my @tests = (
15     [ $long, 'long package name: one word' ],
16     [ join( '::', $long, $long ), 'long package name: multiple words' ],
17     [ join( q['], $long, $long ), q[long package name: multiple words using "'" separator] ],
18     [ join( '::', $long, $short, $long ), 'long & short package name: multiple words' ],
19     [ join( q['], $long, $short, $long ), q[long & short package name: multiple words using "'" separator] ],
20 );
21
22 foreach my $t (@tests) {
23     my ( $sub, $name ) = @$t;
24
25     fresh_perl_is(
26         qq[sub $sub { print qq[ok\n]} &{"$sub"} ],
27         q[ok],
28         { switches => ['-w'] },
29         $name
30     );
31 }