View | Details | Raw Unified | Return to bug 20538
Collapse All | Expand All

(-)a/xt/author/valid-templates.t (-2 / +5 lines)
Lines 117-122 sub run_template_test { Link Here
117
sub create_template_test {
117
sub create_template_test {
118
    my $includes = shift;
118
    my $includes = shift;
119
    my @exclusions = @_;
119
    my @exclusions = @_;
120
121
    my $interface = $includes =~ s|^.*/([^/]*-tmpl).*$|$1|r;
122
    my $theme = ($interface =~ /opac/) ? 'bootstrap' : 'prog';
123
120
    return sub {
124
    return sub {
121
        my $tt = Template->new(
125
        my $tt = Template->new(
122
            {
126
            {
Lines 131-137 sub create_template_test { Link Here
131
                return;
135
                return;
132
            }
136
            }
133
        }
137
        }
134
        my $vars;
138
        my $vars = { interface => $interface, theme => $theme };
135
        my $output;
139
        my $output;
136
        if ( ! -d $_ ) {    # skip dirs
140
        if ( ! -d $_ ) {    # skip dirs
137
            if ( !ok( $tt->process( $_, $vars, \$output ), $_ ) ) {
141
            if ( !ok( $tt->process( $_, $vars, \$output ), $_ ) ) {
138
- 

Return to bug 20538