t/004template.t

   1 # -*- Mode: perl; indent-tabs-mode: nil -*-
   2 #
   3 # The contents of this file are subject to the Mozilla Public
   4 # License Version 1.1 (the "License"); you may not use this file
   5 # except in compliance with the License. You may obtain a copy of
   6 # the License at http://www.mozilla.org/MPL/
   7 #
   8 # Software distributed under the License is distributed on an "AS
   9 # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
  10 # implied. See the License for the specific language governing
  11 # rights and limitations under the License.
  12 #
  13 # The Original Code are the Bugzilla tests.
  14 #
  15 # The Initial Developer of the Original Code is Jacob Steenhagen.
  16 # Portions created by Jacob Steenhagen are
  17 # Copyright (C) 2001 Jacob Steenhagen. All
  18 # Rights Reserved.
  19 #
  20 # Contributor(s): Jacob Steenhagen <jake@bugzilla.org>
  21 #                 Zach Lipton <zach@zachlipton.com>
  22 #                 David D. Kilzer <ddkilzer@kilzer.net>
  23 #                 Tobias Burnus <burnus@net-b.de>
  24 #
  25
  26 #################
  27 #Bugzilla Test 4#
  28 ####Templates####
  29
  30 use strict;
  31
  32 use lib 't';
  33
  34 use Support::Templates;
  35
  36 use File::Spec;
  37 use File::Slurp;
  38 use Template;
  39 use Test::More tests => ( scalar(@referenced_files));
  40
  41 my $template_path = 'templates/webpages/';
  42
  43 # Capture the TESTOUT from Test::More or Test::Builder for printing errors.
  44 # This will handle verbosity for us automatically.
  45 my $fh;
  46 {
  47     local $^W = 0;  # Don't complain about non-existent filehandles
  48     if (-e \*Test::More::TESTOUT) {
  49         $fh = \*Test::More::TESTOUT;
  50     } elsif (-e \*Test::Builder::TESTOUT) {
  51         $fh = \*Test::Builder::TESTOUT;
  52     } else {
  53         $fh = \*STDOUT;
  54     }
  55 }
  56
  57 # test master files for <translate> tag
  58 foreach my $ref (@Support::Templates::referenced_files) {
  59     my $file = "${template_path}${ref}.html";
  60     my $data = read_file($file) || die "??? couldn't open $file";
  61     if ($data =~ /<translate>/) {
  62         ok(0, "$file uses deprecated <translate> tags.");
  63     } else {
  64         ok(1, "$file does not use <translate> tags.");
  65     }
  66 }
  67
  68 exit 0;