Commit | Line | Data |
705e6672 |
1 | #!/usr/bin/perl -w |
3e887aae |
2 | |
3 | # Fixed a problem with BEGIN { use_ok or require_ok } silently failing when there's no |
4 | # plan set. [rt.cpan.org 28345] Thanks Adriano Ferreira and Yitzchak. |
5 | |
6 | use strict; |
705e6672 |
7 | |
8 | BEGIN { |
9 | if( $ENV{PERL_CORE} ) { |
10 | chdir 't'; |
11 | @INC = ('../lib', 'lib'); |
12 | } |
13 | else { |
14 | unshift @INC, 't/lib'; |
15 | } |
16 | } |
17 | |
18 | use Test::More; |
19 | |
20 | my $result; |
21 | BEGIN { |
3e887aae |
22 | $result = require_ok("strict"); |
705e6672 |
23 | } |
24 | |
3e887aae |
25 | ok $result, "require_ok ran"; |
26 | |
27 | done_testing(2); |