1#!/usr/bin/perl -w
2
3BEGIN {
4    if( $ENV{PERL_CORE} ) {
5        chdir 't';
6        @INC = ('../lib', 'lib');
7    }
8    else {
9        unshift @INC, 't/lib';
10    }
11}
12
13use Test::Harness;
14use Test::More tests => 1;
15use Dev::Null;
16
17push @INC, 'we_added_this_lib';
18
19tie *NULL, 'Dev::Null' or die $!;
20select NULL;
21my($tot, $failed) = Test::Harness::_run_all_tests(
22    $ENV{PERL_CORE}
23    ? 'lib/sample-tests/inc_taint'
24    : 't/sample-tests/inc_taint'
25);
26select STDOUT;
27
28ok( Test::Harness::_all_ok($tot), 'tests with taint on preserve @INC' );
29