From 7aede7bc1d9e270e2a1b817fe40750bedf56a270 Mon Sep 17 00:00:00 2001
From: "gerv%gerv.net" <>
Date: Tue, 29 Oct 2002 17:09:30 +0000
Subject: Bug 168191 - Checksetup needs to force template recompilation. Patch
 by bbaetz; r=gerv. Should fix tindebox bustage.

---
 t/004template.t | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

(limited to 't')

diff --git a/t/004template.t b/t/004template.t
index 02541d351..bbcb9f860 100644
--- a/t/004template.t
+++ b/t/004template.t
@@ -69,7 +69,7 @@ foreach my $file(@Support::Templates::referenced_files) {
 }
 
 # Processes all the templates to make sure they have good syntax
-my $template = Template->new(
+my $provider = Template::Provider->new(
 {
     INCLUDE_PATH => $include_path ,
     # Need to define filters used in the codebase, they don't
@@ -86,29 +86,23 @@ my $template = Template->new(
 }
 );
 
-open SAVEOUT, ">&STDOUT";     # stash the original output stream
-open SAVEERR, ">&STDERR";
-open STDOUT, "> /dev/null";   # discard all output
-open STDERR, "> /dev/null";
 foreach my $file(@Support::Templates::actual_files) {
     my $path = File::Spec->catfile($include_path, $file);
     if (-e $path) {
-        if ($template->process($file)) {
+        my ($data, $err) = $provider->fetch($file);
+
+        if (!$err) {
             ok(1, "$file syntax ok");
         }
         else {
             ok(0, "$file has bad syntax --ERROR");
-            print $fh $template->error() . "\n";
+            print $fh $data . "\n";
         }
     }
     else {
         ok(1, "$path doesn't exist, skipping test");
     }
 }
-open STDOUT, ">&SAVEOUT";     # redirect back to original stream
-open STDERR, ">&SAVEERR";
-close SAVEOUT;
-close SAVEERR;
 
 # check to see that all templates have a version string:
 
-- 
cgit v1.2.3-24-g4f1b