[svn:parrot] r40000 - trunk/t/configure

fperrad at svn.parrot.org fperrad at svn.parrot.org
Sat Jul 11 10:58:38 UTC 2009


Author: fperrad
Date: Sat Jul 11 10:58:37 2009
New Revision: 40000
URL: https://trac.parrot.org/parrot/changeset/40000

Log:
[t] fix on win32
don't mix / and \ in paths

Modified:
   trunk/t/configure/049-options_test_prepare.t

Modified: trunk/t/configure/049-options_test_prepare.t
==============================================================================
--- trunk/t/configure/049-options_test_prepare.t	Sat Jul 11 10:57:23 2009	(r39999)
+++ trunk/t/configure/049-options_test_prepare.t	Sat Jul 11 10:58:37 2009	(r40000)
@@ -9,7 +9,6 @@
 use Cwd;
 use File::Basename qw( basename fileparse );
 use File::Path qw( mkpath );
-use File::Spec ();
 use File::Temp 0.13 qw| tempdir |;
 use Test::More tests => 10;
 use lib qw( lib );
@@ -56,16 +55,16 @@
 
     my ( $steps_tests_simple_ref, $steps_tests_complex_ref )  =
         Parrot::Configure::Options::Test::Prepare::_find_steps_tests($tdir);
-    my $full_bad_test = File::Spec->catfile( $tdir, $bad_test );
+    my $full_bad_test = $tdir . '/' . $bad_test;
     ok( ! exists $steps_tests_simple_ref->{$full_bad_test},
         "File in incorrect directory correctly excluded from list of configuration step tests");
-    my $full_lack_number_test = File::Spec->catfile( $tdir, $lack_number_test );
+    my $full_lack_number_test = $tdir . '/' . $lack_number_test;
     ok( ! exists $steps_tests_simple_ref->{$full_lack_number_test},
         "File lacking 2-digit number correctly excluded from list of configuration step tests");
-    my $full_init_hints_test = File::Spec->catfile( $tdir, $init_hints_test );
+    my $full_init_hints_test = $tdir . '/'. $init_hints_test;
     ok( exists $steps_tests_simple_ref->{$full_init_hints_test},
         "File in second-level directory correctly included in list of configuration step tests");
-    my $full_CamelCase_test = File::Spec->catfile( $tdir, $CamelCase_test );
+    my $full_CamelCase_test = $tdir . '/' . $CamelCase_test;
     ok( ! exists $steps_tests_simple_ref->{$full_CamelCase_test},
         "File containing capital letters in name correctly excluded from list of configuration step tests");
 


More information about the parrot-commits mailing list