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