Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 5; |
20 |
use Test::More tests => 6; |
21 |
use Test::Mojo; |
21 |
use Test::Mojo; |
22 |
|
22 |
|
23 |
use Module::Load::Conditional qw(can_load); |
23 |
use Module::Load::Conditional qw(can_load); |
Lines 296-301
subtest 'x-koha-override stash tests' => sub {
Link Here
|
296 |
$schema->storage->txn_rollback; |
296 |
$schema->storage->txn_rollback; |
297 |
}; |
297 |
}; |
298 |
|
298 |
|
|
|
299 |
subtest 'public routes have "is_public" info stashed' => sub { |
300 |
|
301 |
plan tests => 2; |
302 |
|
303 |
$schema->storage->txn_begin; |
304 |
|
305 |
my $stash; |
306 |
$t->app->hook( |
307 |
after_dispatch => sub { |
308 |
$stash = shift->stash; |
309 |
} |
310 |
); |
311 |
|
312 |
$t->get_ok('/api/v1/public/biblios/1'); |
313 |
|
314 |
my $is_public = $stash->{is_public}; |
315 |
|
316 |
ok( $is_public, 'Correctly stashed the fact it is a public route' ); |
317 |
|
318 |
$schema->storage->txn_rollback; |
319 |
}; |
320 |
|
299 |
sub create_user_and_session { |
321 |
sub create_user_and_session { |
300 |
|
322 |
|
301 |
my $args = shift; |
323 |
my $args = shift; |
302 |
- |
|
|