|
Lines 26-31
use HTTP::Request::Common;
Link Here
|
| 26 |
use Plack::App::CGIBin; |
26 |
use Plack::App::CGIBin; |
| 27 |
use Plack::Builder; |
27 |
use Plack::Builder; |
| 28 |
use Plack::Test; |
28 |
use Plack::Test; |
|
|
29 |
use File::Basename; |
| 29 |
|
30 |
|
| 30 |
use Koha::Database; |
31 |
use Koha::Database; |
| 31 |
|
32 |
|
|
Lines 116-122
subtest 'test CSP in OPAC' => sub {
Link Here
|
| 116 |
); |
117 |
); |
| 117 |
|
118 |
|
| 118 |
my $env = {}; |
119 |
my $env = {}; |
| 119 |
my $home = $ENV{KOHA_HOME}; |
120 |
my $home = dirname(__FILE__) . '/../../../..'; |
| 120 |
my $app = Plack::App::CGIBin->new( root => $ENV{GIT_INSTALL} ? "$home/opac" : "$home/opac/cgi-bin/opac" )->to_app; |
121 |
my $app = Plack::App::CGIBin->new( root => $ENV{GIT_INSTALL} ? "$home/opac" : "$home/opac/cgi-bin/opac" )->to_app; |
| 121 |
|
122 |
|
| 122 |
$app = builder { |
123 |
$app = builder { |
|
Lines 175-181
subtest 'test CSP in staff client' => sub {
Link Here
|
| 175 |
); |
176 |
); |
| 176 |
|
177 |
|
| 177 |
my $env = {}; |
178 |
my $env = {}; |
| 178 |
my $home = $ENV{KOHA_HOME}; |
179 |
my $home = dirname(__FILE__) . '/../../../..'; |
| 179 |
my $app = Plack::App::CGIBin->new( root => $ENV{GIT_INSTALL} ? $home : "$home/intranet/cgi-bin/" )->to_app; |
180 |
my $app = Plack::App::CGIBin->new( root => $ENV{GIT_INSTALL} ? $home : "$home/intranet/cgi-bin/" )->to_app; |
| 180 |
|
181 |
|
| 181 |
$app = builder { |
182 |
$app = builder { |
|
Lines 250-256
subtest 'test Reporting-Endpoints for CSP violation reports' => sub {
Link Here
|
| 250 |
Koha::ContentSecurityPolicy->new->set_nonce($test_nonce); |
251 |
Koha::ContentSecurityPolicy->new->set_nonce($test_nonce); |
| 251 |
|
252 |
|
| 252 |
my $env = {}; |
253 |
my $env = {}; |
| 253 |
my $home = $ENV{KOHA_HOME}; |
254 |
my $home = dirname(__FILE__) . '/../../../..'; |
| 254 |
my $app = Plack::App::CGIBin->new( root => $ENV{GIT_INSTALL} ? "$home/opac" : "$home/opac/cgi-bin/opac" )->to_app; |
255 |
my $app = Plack::App::CGIBin->new( root => $ENV{GIT_INSTALL} ? "$home/opac" : "$home/opac/cgi-bin/opac" )->to_app; |
| 255 |
|
256 |
|
| 256 |
$app = builder { |
257 |
$app = builder { |
| 257 |
- |
|
|