From f987a550f8227bcd31e224fcefeeca9a53027d5a Mon Sep 17 00:00:00 2001
From: "burnus%gmx.de" <>
Date: Sat, 26 Apr 2003 21:11:59 +0000
Subject: Bug 203318 - 008filter.t fails to do chdir $topdir - if
 @Support::Templates::include_paths returns more than one path r=justdave,gerv
 a=justdave

---
 t/008filter.t | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/t/008filter.t b/t/008filter.t
index 10d7fc62c..c9e063c78 100644
--- a/t/008filter.t
+++ b/t/008filter.t
@@ -41,14 +41,17 @@ use Cwd;
 
 # Undefine the record separator so we can read in whole files at once
 my $oldrecsep = $/;
-$/ = undef;
 my $topdir = cwd;
+$/ = undef;
 
 foreach my $path (@Support::Templates::include_paths) {
-    $path =~ m|template/([^/]+)/|;
+    $path =~ m|template/([^/]+)/([^/]+)|;
     my $lang = $1;
+    my $flavor = $2;
+
     chdir $topdir; # absolute path
     my @testitems = Support::Templates::find_actual_files($path);
+    chdir $topdir; # absolute path
     
     next unless @testitems;
     
@@ -79,7 +82,7 @@ foreach my $path (@Support::Templates::include_paths) {
         # There are some files we don't check, because there is no need to
         # filter their contents due to their content-type.
         if ($file =~ /\.(txt|png)\.tmpl$/) {
-            ok(1, "($lang) $file is filter-safe");
+            ok(1, "($lang/$flavor) $file is filter-safe");
             next;
         }
         
@@ -155,7 +158,7 @@ foreach my $path (@Support::Templates::include_paths) {
         
         if (@unfiltered) {
             my $uflist = join("\n  ", @unfiltered);
-            ok(0, "($lang) $fullpath has unfiltered directives:\n  $uflist\n--ERROR");
+            ok(0, "($lang/$flavor) $fullpath has unfiltered directives:\n  $uflist\n--ERROR");
         }
         else {
             # Find any members of the exclusion list which were not found
@@ -166,12 +169,12 @@ foreach my $path (@Support::Templates::include_paths) {
 
             if (@notfound) {
                 my $nflist = join("\n  ", @notfound);
-                ok(0, "($lang) $fullpath - FEL has extra members:\n  $nflist\n" . 
+                ok(0, "($lang/$flavor) $fullpath - FEL has extra members:\n  $nflist\n" . 
                                                                   "--WARNING");
             }
             else {
                 # Don't use the full path here - it's too long and unwieldy.
-                ok(1, "($lang) $file is filter-safe");
+                ok(1, "($lang/$flavor) $file is filter-safe");
             }
         }
     }
-- 
cgit v1.2.3-24-g4f1b