Bug 30735: Fix filtering by patron attribute with AV in overdues report
[koha.git] / xt / author / valid-templates.t
1 #!/usr/bin/perl
2
3 # This file is part of Koha.
4 #
5 # Copyright 2011 Catalyst IT
6 #
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.
11 #
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.
16 #
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>.
19
20 use Modern::Perl;
21
22 use threads;    # used for parallel
23 use Parallel::ForkManager;
24 use Sys::CPU;
25
26 =head1 NAME
27
28 valid-templates.t
29
30 =head1 DESCRIPTION
31
32 This test checks all staff and OPAC templates and includes for syntax errors 
33
34 =cut
35
36
37 use File::Find;
38 use File::Spec;
39 use Template;
40 use Test::More;
41
42 my @themes;
43
44 # OPAC themes
45 my $opac_dir  = 'koha-tmpl/opac-tmpl';
46 opendir ( my $dh, $opac_dir ) or die "can't opendir $opac_dir: $!";
47 for my $theme ( grep { not /^\.|lib|js|xslt/ } readdir($dh) ) {
48     push @themes, {
49         type     => "opac",
50         theme    => $theme,
51         modules  => "$opac_dir/$theme/en/modules",
52         includes => "$opac_dir/$theme/en/includes",
53     }
54 }
55 close $dh;
56
57 # STAFF themes
58 my $staff_dir = 'koha-tmpl/intranet-tmpl';
59 opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
60 for my $theme ( grep { not /^\.|lib|js/ } readdir($dh) ) {
61     push @themes, {
62         type     => "staff",
63         theme    => $theme,
64         modules  => "$staff_dir/$theme/en/modules",
65         includes => "$staff_dir/$theme/en/includes",
66     }
67 }
68 close $dh;
69
70 my $ncpu;
71 if ( $ENV{KOHA_PROVE_CPUS} ) {
72     $ncpu = $ENV{KOHA_PROVE_CPUS} ; # set number of cpus to use
73 } else {
74     $ncpu = Sys::CPU::cpu_count();
75 }
76
77 my $pm   = Parallel::ForkManager->new($ncpu);
78
79 # Tests
80 foreach my $theme ( @themes ) {
81     $pm->start and next;    # do the fork
82     print "Testing $theme->{'type'} $theme->{'theme'} templates\n";
83     if ( $theme->{'theme'} eq 'bootstrap' ) {
84         run_template_test(
85             $theme->{'modules'},
86             $theme->{'includes'},
87             # templates to exclude from testing because
88             # they cannot stand alone
89             'doc-head-close.inc',
90             'opac-bottom.inc',
91         );
92     }
93     else {
94         run_template_test(
95             $theme->{'modules'},
96             $theme->{'includes'},
97         );
98     }
99     $pm->finish;
100 }
101
102 $pm->wait_all_children;
103
104 done_testing();
105
106 sub run_template_test {
107     my $template_path = shift;
108     my $include_path  = shift;
109     my @exclusions = @_;
110     my $template_dir  = File::Spec->rel2abs($template_path);
111     my $include_dir   = File::Spec->rel2abs($include_path);
112     my $template_test = create_template_test($include_dir, @exclusions);
113     find( { wanted => $template_test, no_chdir => 1 },
114         $template_dir, $include_dir );
115 }
116
117 sub create_template_test {
118     my $includes = shift;
119     my @exclusions = @_;
120
121     my $interface = $includes =~ s|^.*/([^/]*-tmpl).*$|$1|r;
122     my $theme = ($interface =~ /opac/) ? 'bootstrap' : 'prog';
123
124     return sub {
125         my $tt = Template->new(
126             {
127                 ABSOLUTE     => 1,
128                 INCLUDE_PATH => $includes,
129                 PLUGIN_BASE  => 'Koha::Template::Plugin',
130             }
131         );
132         foreach my $exclusion (@exclusions) {
133             if ($_ =~ /${exclusion}$/) {
134                 diag("excluding template $_ because it cannot stand on its own");
135                 return;
136             }
137         }
138         my $vars = { interface => $interface, theme => $theme };
139         my $output;
140         if ( ! -d $_ ) {    # skip dirs
141             if ( !ok( $tt->process( $_, $vars, \$output ), $_ ) ) {
142                 diag( $tt->error );
143             }
144         }
145     }
146 }
147
148 =head1 AUTHOR
149
150 Koha Development Team <http://koha-community.org>
151
152 Chris Cormack <chrisc@catalyst.net.nz>
153
154 =cut