Commit | Line | Data |
---|---|---|
f3d6edb2 N |
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( | |
06cbc317 | 26 | qq[sub $sub { print qq[ok\n]} &{"$sub"}; my \$d = defined *{"foo$sub"} ], |
f3d6edb2 N |
27 | q[ok], |
28 | { switches => ['-w'] }, | |
29 | $name | |
30 | ); | |
31 | } |