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

(-)a/t/db_dependent/Auth.t (-2 / +23 lines)
Lines 8-14 use Modern::Perl; Link Here
8
use CGI qw ( -utf8 );
8
use CGI qw ( -utf8 );
9
use Test::MockModule;
9
use Test::MockModule;
10
use List::MoreUtils qw/all any none/;
10
use List::MoreUtils qw/all any none/;
11
use Test::More tests => 8;
11
use Test::More tests => 11;
12
use Test::Warn;
12
use C4::Members;
13
use C4::Members;
13
use Koha::AuthUtils qw/hash_password/;
14
use Koha::AuthUtils qw/hash_password/;
14
15
Lines 105-110 $dbh->{RaiseError} = 1; Link Here
105
106
106
    ok( ( any { $_->name eq 'KohaOpacLanguage' and $_->value eq 'en' } @$cookies ),
107
    ok( ( any { $_->name eq 'KohaOpacLanguage' and $_->value eq 'en' } @$cookies ),
107
        'BZ9735: invalid language, then default to en');
108
        'BZ9735: invalid language, then default to en');
109
110
    for my $template_name (
111
        qw(
112
            ../../../../../../../../../../../../../../../etc/passwd
113
            test/../../../../../../../../../../../../../../etc/passwd
114
            /etc/passwd
115
        )
116
    ) {
117
        eval {
118
            ( $template, $loggedinuser, $cookies ) = get_template_and_user(
119
                {
120
                    template_name   => $template_name,
121
                    query           => $query,
122
                    type            => "intranet",
123
                    authnotrequired => 1,
124
                    flagsrequired   => { catalogue => 1 },
125
                }
126
            );
127
        };
128
        like ( $@, qr(^bad template path), 'The file $template_name should not be accessible' );
129
    }
108
}
130
}
109
131
110
# Check that there is always an OPACBaseURL set.
132
# Check that there is always an OPACBaseURL set.
111
- 

Return to bug 14408