[svn:parrot] r38236 - trunk/t/codingstd

fperrad at svn.parrot.org fperrad at svn.parrot.org
Mon Apr 20 20:09:38 UTC 2009


Author: fperrad
Date: Mon Apr 20 20:09:36 2009
New Revision: 38236
URL: https://trac.parrot.org/parrot/changeset/38236

Log:
[t] allows this test to run on Windows 
Previously (since r37817) fails with : 
Trailing \ in regex m/^C:/fperrad/Parrot/trunk\/ at t/codingstd/c_function_docs.t line 37.

Modified:
   trunk/t/codingstd/c_function_docs.t

Modified: trunk/t/codingstd/c_function_docs.t
==============================================================================
--- trunk/t/codingstd/c_function_docs.t	Mon Apr 20 18:58:55 2009	(r38235)
+++ trunk/t/codingstd/c_function_docs.t	Mon Apr 20 20:09:36 2009	(r38236)
@@ -33,9 +33,12 @@
 my $DIST = Parrot::Distribution->new;
 my $headerizer = Parrot::Headerizer->new;
 
+my $prefix_path = $PConfig{build_dir} . $PConfig{slash};
+$prefix_path =~ s/\\/\\\\/g; # escape \ when Windows path
+
 # can't handle .ops or .pmc files yet
 my @files = grep {/\.(c|h)$/ } @ARGV ? @ARGV :
-    map {s/^$PConfig{build_dir}$PConfig{slash}//; $_} map {$_->path} $DIST->get_c_language_files();
+    map {s/^$prefix_path//; $_} map {$_->path} $DIST->get_c_language_files();
 
 plan tests => scalar @files;
 
@@ -70,7 +73,7 @@
             # else:  docs!
         }
         else {
-            $missing = 'missing'; 
+            $missing = 'missing';
         }
         if ($missing) {
             push @missing_docs, "$path ($missing)\n$function_decl\n";


More information about the parrot-commits mailing list