Commit | Line | Data |
60ffb308 |
1 | #!/usr/bin/perl -w |
2 | |
3 | BEGIN { |
4 | if( $ENV{PERL_CORE} ) { |
5 | chdir 't'; |
6 | @INC = '../lib'; |
7 | } |
8 | } |
9 | |
10 | use Test::More; |
11 | |
12 | BEGIN { |
13 | if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) { |
14 | plan skip_all => "Won't work with t/TEST"; |
15 | } |
16 | } |
17 | |
18 | BEGIN { |
19 | require Test::Harness; |
20 | } |
21 | |
30e302f8 |
22 | # This feature requires a fairly new version of Test::Harness |
23 | if( $Test::Harness::VERSION < 2.03 ) { |
24 | plan tests => 1; |
25 | diag "Need Test::Harness 2.03 or up. You have $Test::Harness::VERSION."; |
26 | fail 'Need Test::Harness 2.03 or up'; |
27 | exit; |
60ffb308 |
28 | } |
29 | |
30 | use strict; |
31 | use Test::Builder; |
32 | |
33 | plan 'no_plan'; |
34 | is(Test::Builder->has_plan, 'no_plan', 'has no_plan'); |