11 rmdir foreach reverse qw(blib blib/arch blib/lib);
18 mkdir $dir or die "Can't mkdir $dir: $!" if ! -d $dir;
25 use Test::More tests => 7;
28 ok( $@ =~ /Cannot find blib/, 'Fails if blib directory not found' );
30 _mkdirs(qw(blib blib/arch blib/lib));
34 local $SIG{__WARN__} = sub { $warnings = join '', @_ };
36 is( $warnings, '', 'use blib is niiiice and quiet' );
39 is( @INC, 3, '@INC now has 3 elements' );
40 is( $INC[2], '../lib', 'blib added to the front of @INC' );
42 ok( grep(m|blib/lib$|, @INC[0,1]) == 1, ' blib/lib in @INC');
43 ok( grep(m|blib/arch$|, @INC[0,1]) == 1, ' blib/arch in @INC');