1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 require "./test.pl"; 6 set_up_inc(qw(../lib)); 7} 8 9plan( tests => 5 ); 10 11my $long = 'x' x 100; 12my $short = 'abcd'; 13 14my @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 22foreach 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} 32