BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
+ if( $ENV{PERL_CORE} ) {
+ chdir 't';
+ @INC = ('../lib', 'lib');
+ }
+ else {
+ unshift @INC, 't/lib';
+ }
}
# Can't use Test.pm, that's a 5.005 thing.
package My::Test;
-# This feature requires a fairly new version of Test::Harness
BEGIN {
+ if( !$ENV{HARNESS_ACTIVE} && $ENV{PERL_CORE} ) {
+ print "1..0 # Skipped: Won't work with t/TEST\n";
+ exit 0;
+ }
+
+ # This feature requires a fairly new version of Test::Harness
require Test::Harness;
if( $Test::Harness::VERSION < 1.20 ) {
print "1..0 # Skipped: Need Test::Harness 1.20 or up\n";
require Test::Simple;
-push @INC, '../t/lib';
require Test::Simple::Catch;
my($out, $err) = Test::Simple::Catch::caught();