[p5sagit/p5-mst-13.2.git] / lib / Test / Harness / t / compat / regression.t

#!/usr/bin/perl -w

use strict;
use lib 't/lib';

use Test::More tests => 1;
use Test::Harness;

{

    #28567
    unshift @INC, 'wibble';
    my @before = Test::Harness::_filtered_inc();
    unshift @INC, sub {die};
    my @after = Test::Harness::_filtered_inc();
    is_deeply \@after, \@before, 'subref removed from @INC';
}
Commit	Line	Data
b965d173	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use lib 't/lib';
	5
	6	use Test::More tests => 1;
	7	use Test::Harness;
	8
	9	{
f7c69158	10
b965d173	11	#28567
	12	unshift @INC, 'wibble';
	13	my @before = Test::Harness::_filtered_inc();
	14	unshift @INC, sub {die};
	15	my @after = Test::Harness::_filtered_inc();
	16	is_deeply \@after, \@before, 'subref removed from @INC';
	17	}