| 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"}; my \$d = defined *{"foo$sub"} ], |
| 27 | q[ok], |
| 28 | { switches => ['-w'] }, |
| 29 | $name |
| 30 | ); |
| 31 | } |