Commit | Line | Data |
---|---|---|
00881caa | 1 | #!/usr/bin/perl -w |
2 | ||
3 | # [rt.cpan.org 28345] | |
4 | # | |
5 | # A use_ok() inside a BEGIN block lacking a plan would be silently ignored. | |
6 | ||
7 | BEGIN { | |
8 | if( $ENV{PERL_CORE} ) { | |
9 | chdir 't'; | |
10 | @INC = ('../lib', 'lib'); | |
11 | } | |
12 | else { | |
13 | unshift @INC, 't/lib'; | |
14 | } | |
15 | } | |
16 | ||
17 | use Test::More; | |
18 | ||
19 | my $result; | |
20 | BEGIN { | |
3e887aae | 21 | $result = use_ok("strict"); |
00881caa | 22 | } |
23 | ||
3e887aae | 24 | ok( $result, "use_ok() ran" ); |
25 | done_testing(2); | |
26 |