From: jouni%heikniemi.net <>
Date: Wed, 16 Jun 2004 18:13:39 +0000 (+0000)
Subject: Bug 142744: Testing suite should work on Win32
X-Git-Tag: bugzilla-2.18rc1~40
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0bd25a01b546fc6c6bfa1b4d3b1a492b471d396b;p=thirdparty%2Fbugzilla.git

Bug 142744: Testing suite should work on Win32
Patch by byron jones (glob) <bugzilla@glob.com.au>
r=jouni, a=justdave
---

diff --git a/t/008filter.t b/t/008filter.t
index d0654008a5..e3d107bf29 100644
--- a/t/008filter.t
+++ b/t/008filter.t
@@ -45,6 +45,7 @@ my $topdir = cwd;
 $/ = undef;
 
 foreach my $path (@Support::Templates::include_paths) {
+    $path =~ s|\\|/|g if $^O eq 'MSWin32';  # convert \ to / in path if on windows
     $path =~ m|template/([^/]+)/([^/]+)|;
     my $lang = $1;
     my $flavor = $2;
@@ -65,6 +66,17 @@ foreach my $path (@Support::Templates::include_paths) {
     }
     else {
         do "filterexceptions.pl";
+        if ($^O eq 'MSWin32') {
+          # filterexceptions.pl uses / separated paths, while 
+          # find_actual_files returns \ separated ones on Windows.
+          # Here, we convert the filter exception hash to use \.
+          foreach my $file (keys %safe) {
+            my $orig_file = $file;
+            $file =~ s|/|\\|g;
+            $safe{$file} = $safe{$orig_file};
+            delete $safe{$orig_file};
+          }
+        }
     }
     
     # We preprocess the %safe hash of lists into a hash of hashes. This allows