[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