1#!/usr/bin/perl -w
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
6use strict;
7
8BEGIN {
9    if( $ENV{PERL_CORE} ) {
10        chdir 't';
11        @INC = ('../lib', 'lib');
12    }
13    else {
14        unshift @INC, 't/lib';
15    }
16}
17
18use Test::More;
19
20my $result;
21BEGIN {
22    $result = require_ok("strict");
23}
24
25ok $result, "require_ok ran";
26
27done_testing(2);
28