From: Karen Etheridge Date: Sun, 29 Sep 2013 20:46:58 +0000 (-0700) Subject: use normalized path on win32 in this test too X-Git-Tag: 1.008019~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f7dfe32ffd4c87fd3bcaf6168caf4ebd3a73d90;p=p5sagit%2Flocal-lib.git use normalized path on win32 in this test too this hopefully addresses cpantesters failure reports, e.g.: http://www.cpantesters.org/cpan/report/c8a7c865-6d66-1014-b964-310d2901c822 http://www.cpantesters.org/cpan/report/ca4b52de-6bf3-1014-810b-761a736704e8 http://www.cpantesters.org/cpan/report/77c604d8-6cdc-1014-ad93-a84555012b15 --- diff --git a/t/install.t b/t/install.t index 100834f..5a515c8 100644 --- a/t/install.t +++ b/t/install.t @@ -4,14 +4,15 @@ use Test::More; BEGIN { plan skip_all => "Install Capture::Tiny to test installation" unless eval { require Capture::Tiny; 1 } } use Capture::Tiny qw(capture); -use File::Temp qw(tempdir); use File::Spec; use Cwd; use Config; +use lib 't/lib'; use TempDir; + plan tests => 2; -my $dir = tempdir('test_local_lib-XXXXX', DIR => Cwd::abs_path('t'), CLEANUP => 1); +my $dir = mk_temp_dir('test_local_lib-XXXXX'); use local::lib (); local::lib->import($dir); @@ -35,6 +36,6 @@ SKIP: for my $dist_type (qw(EUMM MB)) { my $file = File::Spec->catfile($dir, qw(lib perl5), "$dist_type.pm"); ok( -e $file, - "$dist_type.pm installed as $file", + "$dist_type - $dist_type.pm installed as $file", ); }