9 my($blib, $blib_arch, $blib_lib, @blib_dirs);
12 rmdir foreach reverse (@_);
13 unlink "stderr" unless $^O eq 'MacOS';
19 mkdir $dir or die "Can't mkdir $dir: $!" if ! -d $dir;
28 $blib_lib = ":blib:lib:";
29 $blib_arch = ":blib:lib:$MacPerl::Architecture:";
30 @blib_dirs = ($blib, $blib_lib, $blib_arch); # order
35 $blib_arch = "blib/arch";
36 $blib_lib = "blib/lib";
37 @blib_dirs = ($blib, $blib_arch, $blib_lib);
39 _cleanup( @blib_dirs );
42 use Test::More tests => 7;
45 ok( $@ =~ /Cannot find blib/, 'Fails if blib directory not found' );
47 _mkdirs( @blib_dirs );
51 local $SIG{__WARN__} = sub { $warnings = join '', @_ };
53 is( $warnings, '', 'use blib is niiiice and quiet' );
56 is( @INC, 3, '@INC now has 3 elements' );
57 is( $INC[2], '../lib', 'blib added to the front of @INC' );
59 ok( grep(m|$blib_lib$|, @INC[0,1]) == 1, ' blib/lib in @INC');
60 ok( grep(m|$blib_arch$|, @INC[0,1]) == 1, ' blib/arch in @INC');
62 END { _cleanup( @blib_dirs ); }