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;
27 $MacPerl::Architecture = $MacPerl::Architecture; # shhhhh
29 $blib_lib = ":blib:lib:";
30 $blib_arch = ":blib:lib:$MacPerl::Architecture:";
31 @blib_dirs = ($blib, $blib_lib, $blib_arch); # order
36 $blib_arch = "blib/arch";
37 $blib_lib = "blib/lib";
38 @blib_dirs = ($blib, $blib_arch, $blib_lib);
40 _cleanup( @blib_dirs );
43 use Test::More tests => 7;
46 ok( $@ =~ /Cannot find blib/, 'Fails if blib directory not found' );
48 _mkdirs( @blib_dirs );
52 local $SIG{__WARN__} = sub { $warnings = join '', @_ };
54 is( $warnings, '', 'use blib is niiiice and quiet' );
57 is( @INC, 3, '@INC now has 3 elements' );
58 is( $INC[2], '../lib', 'blib added to the front of @INC' );
61 # Unix syntax is accepted going in but it's not what comes out
62 $blib_arch = 'blib.arch]';
63 $blib_lib = 'blib.lib]';
65 ok( grep(m|\Q$blib_lib\E$|, @INC[0,1]) == 1, ' blib/lib in @INC');
66 ok( grep(m|\Q$blib_arch\E$|, @INC[0,1]) == 1, ' blib/arch in @INC');
68 END { _cleanup( @blib_dirs ); }