xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/BEGIN_use_ok.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b) 
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
7BEGIN {
8    if( $ENV{PERL_CORE} ) {
9        chdir 't';
10        @INC = ('../lib', 'lib');
11    }
12    else {
13        unshift @INC, 't/lib';
14    }
15}
16
17use Test::More;
18
19my $result;
20BEGIN {
21    $result = use_ok("strict");
22}
23
24ok( $result, "use_ok() ran" );
25done_testing(2);
26
27