[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	{
	10	#28567
	11	unshift @INC, 'wibble';
	12	my @before = Test::Harness::_filtered_inc();
	13	unshift @INC, sub {die};
	14	my @after = Test::Harness::_filtered_inc();
	15	is_deeply \@after, \@before, 'subref removed from @INC';
	16	}