[svn:Module-Build] r13666 - Module-Build/trunk/t

[dagolden]

Author: dagolden
Date: Thu Dec 17 06:27:11 2009
New Revision: 13666

Modified:
   Module-Build/trunk/t/install_extra_target.t

Log:
improve portability of install_extra_target.t

Modified: Module-Build/trunk/t/install_extra_target.t
==============================================================================
--- Module-Build/trunk/t/install_extra_target.t (original)
+++ Module-Build/trunk/t/install_extra_target.t Thu Dec 17 06:27:11 2009
@@ -7,7 +7,7 @@
 
 blib_load('Module::Build');
 
-use File::Spec::Functions qw( catdir );
+use File::Spec::Functions qw( catdir catfile );
 
 my $tmp = MBTest->tmpdir;
 my $output;
@@ -128,8 +128,8 @@
 $output = stdout_of sub { $dist->run_build('install') };
 
 $error = 0;
-$error++ unless ok(-e "$installdest/etc/simple/config", "installed 
etc/config");
-$error++ unless ok(-e "$installdest/shared/simple/data", "installed 
shared/data");
-$error++ unless ok(-e "$installdest/shared/simple/html/index.html", "installed 
shared/html");
+$error++ unless ok(-e catfile($installdest, qw/etc simple config/), "installed 
etc/config");
+$error++ unless ok(-e catfile($installdest, qw/shared simple data/), 
"installed shared/data");
+$error++ unless ok(-e catfile($installdest, qw/shared simple html 
index.html/), "installed shared/html");
 diag "OUTPUT:\n$output" if $error;