[perl5.git] / lib / ExtUtils / testlib.t

#!./perl 

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Test::More tests => 3;

my @blib_paths = grep { /blib/ } @INC;
is( @blib_paths, 0, 'No blib dirs yet in @INC' );

use_ok( 'ExtUtils::testlib' );

@blib_paths = grep { /blib/ } @INC;
is( @blib_paths, 2, 'ExtUtils::testlib added two @INC dirs!' );
Commit	Line	Data
7a5004db	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7
	8	use Test::More tests => 3;
	9
	10	my @blib_paths = grep { /blib/ } @INC;
	11	is( @blib_paths, 0, 'No blib dirs yet in @INC' );
	12
	13	use_ok( 'ExtUtils::testlib' );
	14
	15	@blib_paths = grep { /blib/ } @INC;
	16	is( @blib_paths, 2, 'ExtUtils::testlib added two @INC dirs!' );