Globale Variablen nach %::lx_office_conf verschoben
[kivitendo-erp.git] / 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;