3 # This file is part of Koha.
5 # Copyright 2011 Catalyst IT
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
29 This test checks all staff and OPAC templates and includes for syntax errors
42 my $opac_dir = 'koha-tmpl/opac-tmpl';
43 opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
44 for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) {
48 modules => "$opac_dir/$theme/en/modules",
49 includes => "$opac_dir/$theme/en/includes",
55 my $staff_dir = 'koha-tmpl/intranet-tmpl';
56 opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
57 for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) {
61 modules => "$staff_dir/$theme/en/modules",
62 includes => "$staff_dir/$theme/en/includes",
68 foreach my $theme ( @themes ) {
69 print "Testing $theme->{'type'} $theme->{'theme'} templates\n";
70 if ( $theme->{'theme'} eq 'bootstrap' ) {
74 # templates to exclude from testing because
75 # they cannot stand alone
90 sub run_template_test {
91 my $template_path = shift;
92 my $include_path = shift;
94 my $template_dir = File::Spec->rel2abs($template_path);
95 my $include_dir = File::Spec->rel2abs($include_path);
96 my $template_test = create_template_test($include_dir, @exclusions);
97 find( { wanted => $template_test, no_chdir => 1 },
98 $template_dir, $include_dir );
101 sub create_template_test {
102 my $includes = shift;
105 my $tt = Template->new(
108 INCLUDE_PATH => $includes,
109 PLUGIN_BASE => 'Koha::Template::Plugin',
112 foreach my $exclusion (@exclusions) {
113 if ($_ =~ /${exclusion}$/) {
114 diag("excluding template $_ because it cannot stand on its own");
120 if ( ! -d $_ ) { # skip dirs
121 if ( !ok( $tt->process( $_, $vars, \$output ), $_ ) ) {
130 Koha Development Team <http://koha-community.org>
132 Chris Cormack <chrisc@catalyst.net.nz>