use strict;
use warnings;
-use Test::More;
-use File::Temp qw(tempdir tempfile);
+use Test::More tests => 1;
+use File::Temp 'tempfile';
use Cwd;
-plan tests => 1;
+use lib 't/lib'; use TempDir;
-# Setup temp dir to serve as local lib
-my $dir1 = tempdir('test_local_lib-XXXXX', DIR => Cwd::abs_path('t'), CLEANUP => 1);
+my $dir1 = mk_temp_dir('test_local_lib-XXXXX');
# Set up local::lib environment using our temp dir
require local::lib;
# local lib to the same temp dir.
my ($fh, $filename) = tempfile('test_local_lib-XXXXX', DIR => Cwd::abs_path('t'), UNLINK => 1);
+# escape backlslashes for embedding into generated script
+$dir1 =~ s/\\/\\\\/g;
+
print $fh <<EOM;
#!/usr/bin/perl -T
use strict; use warnings;
use local::lib '$dir1';
-my \$dir1 = "$dir1";
-if (grep { \$_ =~ m{^\$dir1/} } \@INC) {
+warn "using lib dir $dir1\\n";
+my \$quoted_dir = quotemeta('$dir1');
+warn "dir is $dir1, quoted is \$quoted_dir\\n";
+if (grep { m{^\$quoted_dir/} } \@INC) {
exit 0;
}
+warn '\@INC is: ', join("\\n", \@INC), "\\n";
exit 1
EOM
close $fh;