Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 13; |
20 |
use Test::More tests => 14; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use Test::Mojo; |
22 |
use Test::Mojo; |
23 |
use t::lib::TestBuilder; |
23 |
use t::lib::TestBuilder; |
Lines 461-467
subtest 'suspend and resume tests' => sub {
Link Here
|
461 |
my $password = 'AbcdEFG123'; |
461 |
my $password = 'AbcdEFG123'; |
462 |
|
462 |
|
463 |
my $patron = $builder->build_object( |
463 |
my $patron = $builder->build_object( |
464 |
{ class => 'Koha::Patrons', value => { userid => 'tomasito', flags => 1 } } ); |
464 |
{ class => 'Koha::Patrons', value => { userid => 'tomasito', flags => 0 } } ); |
|
|
465 |
$builder->build( |
466 |
{ |
467 |
source => 'UserPermission', |
468 |
value => { |
469 |
borrowernumber => $patron->borrowernumber, |
470 |
module_bit => 6, |
471 |
code => 'place_holds', |
472 |
}, |
473 |
} |
474 |
); |
475 |
|
465 |
$patron->set_password({ password => $password, skip_validation => 1 }); |
476 |
$patron->set_password({ password => $password, skip_validation => 1 }); |
466 |
my $userid = $patron->userid; |
477 |
my $userid = $patron->userid; |
467 |
|
478 |
|
Lines 1363-1365
subtest 'PUT /holds/{hold_id}/pickup_location tests' => sub {
Link Here
|
1363 |
|
1374 |
|
1364 |
$schema->storage->txn_rollback; |
1375 |
$schema->storage->txn_rollback; |
1365 |
}; |
1376 |
}; |
1366 |
- |
1377 |
|
|
|
1378 |
subtest 'delete() tests' => sub { |
1379 |
|
1380 |
plan tests => 3; |
1381 |
|
1382 |
$schema->storage->txn_begin; |
1383 |
|
1384 |
my $password = 'AbcdEFG123'; |
1385 |
my $patron = $builder->build_object({ class => 'Koha::Patrons', value => { flags => 0 } }); |
1386 |
$patron->set_password({ password => $password, skip_validation => 1 }); |
1387 |
my $userid = $patron->userid; |
1388 |
|
1389 |
# Only have 'place_holds' subpermission |
1390 |
$builder->build( |
1391 |
{ |
1392 |
source => 'UserPermission', |
1393 |
value => { |
1394 |
borrowernumber => $patron->borrowernumber, |
1395 |
module_bit => 6, |
1396 |
code => 'place_holds', |
1397 |
}, |
1398 |
} |
1399 |
); |
1400 |
|
1401 |
# Disable logging |
1402 |
t::lib::Mocks::mock_preference( 'HoldsLog', 0 ); |
1403 |
t::lib::Mocks::mock_preference( 'RESTBasicAuth', 1 ); |
1404 |
|
1405 |
my $biblio = $builder->build_sample_biblio; |
1406 |
my $item = $builder->build_sample_item( |
1407 |
{ |
1408 |
biblionumber => $biblio->biblionumber, |
1409 |
library => $patron->branchcode |
1410 |
} |
1411 |
); |
1412 |
|
1413 |
# Add a hold |
1414 |
my $hold = Koha::Holds->find( |
1415 |
AddReserve( |
1416 |
{ |
1417 |
branchcode => $patron->branchcode, |
1418 |
borrowernumber => $patron->borrowernumber, |
1419 |
biblionumber => $biblio->biblionumber, |
1420 |
priority => 1, |
1421 |
itemnumber => undef, |
1422 |
} |
1423 |
) |
1424 |
); |
1425 |
|
1426 |
$t->delete_ok( "//$userid:$password@/api/v1/holds/" . $hold->id ) |
1427 |
->status_is(204, 'SWAGGER3.2.4') |
1428 |
->content_is('', 'SWAGGER3.3.4'); |
1429 |
|
1430 |
$schema->storage->txn_rollback; |
1431 |
}; |