Author: paultcochrane
Date: Sat Mar 17 09:48:35 2007
New Revision: 17540
Modified:
trunk/t/distro/file_metadata.t
Log:
[t] Added a hack to (hopefully) make this test run more nicely on Windows.
Comments for improvement definitely welcome.
Modified: trunk/t/distro/file_metadata.t
==============================================================================
--- trunk/t/distro/file_metadata.t (original)
+++ trunk/t/distro/file_metadata.t Sat Mar 17 09:48:35 2007
@@ -107,13 +107,26 @@
## Parrot's current IO mechanism. Therefore, we need to check that the
## files with LF are the ones we expect, and that the rest are native.
-our $lf_files_regexp = qr{
- ^examples/shootout/.*\.input$ |
- ^examples/shootout/.*\.output$ |
- ^t/compilers/pge/p5regex/re_tests$ |
- ^t/library/perlhist.txt$ |
- ^t/op/sprintf_tests$
- }x;
+our $lf_files_regexp;
+if ($^O eq 'MSWin32') {
+ $lf_files_regexp = qr{
+ ^examples\\shootout\\.*\.input$ |
+ ^examples\\shootout\\.*\.output$ |
+ ^t\\compilers\\pge\\p5regex\\re_tests$ |
+ ^t\\library\\perlhist.txt$ |
+ ^t\\op\\sprintf_tests$
+ }x;
+}
+else {
+ $lf_files_regexp = qr{
+ ^examples/shootout/.*\.input$ |
+ ^examples/shootout/.*\.output$ |
+ ^t/compilers/pge/p5regex/re_tests$ |
+ ^t/library/perlhist.txt$ |
+ ^t/op/sprintf_tests$
+ }x;
+}
+
NATIVE_EOL_STYLE: {
