Lines 1214-1220
subtest 'store check barcodes' => sub {
Link Here
|
1214 |
}; |
1214 |
}; |
1215 |
|
1215 |
|
1216 |
subtest 'deletion' => sub { |
1216 |
subtest 'deletion' => sub { |
1217 |
plan tests => 15; |
1217 |
plan tests => 16; |
1218 |
|
1218 |
|
1219 |
$schema->storage->txn_begin; |
1219 |
$schema->storage->txn_begin; |
1220 |
|
1220 |
|
Lines 1406-1411
subtest 'deletion' => sub {
Link Here
|
1406 |
$schema->storage->txn_rollback; |
1406 |
$schema->storage->txn_rollback; |
1407 |
}; |
1407 |
}; |
1408 |
|
1408 |
|
|
|
1409 |
subtest 'serial issues tests' => sub { |
1410 |
plan tests => 4; |
1411 |
|
1412 |
t::lib::Mocks::mock_preference( 'IndependentBranches', 0 ); |
1413 |
|
1414 |
$schema->storage->txn_begin; |
1415 |
|
1416 |
my $biblio = $builder->build_sample_biblio; |
1417 |
my $item_with_serial = $builder->build_sample_item( { biblionumber => $biblio->id } ); |
1418 |
my $serial = |
1419 |
$builder->build_object( { class => 'Koha::Serials', value => { biblionumber => $biblio->biblionumber } } ); |
1420 |
my $serial_item = $builder->build_object( |
1421 |
{ |
1422 |
class => 'Koha::Serial::Items', |
1423 |
value => { itemnumber => $item_with_serial->itemnumber, serialid => $serial->serialid } |
1424 |
} |
1425 |
); |
1426 |
|
1427 |
# Check serial issue is not deleted unless argument passed |
1428 |
$item_with_serial->safe_delete( { delete_serial_issues => 0 } ); |
1429 |
|
1430 |
my $serial_check = Koha::Serials->find( $serial->serialid ); |
1431 |
my $serial_item_check = Koha::Serial::Items->find( $serial_item->itemnumber ); |
1432 |
|
1433 |
is( $serial_check->serialid, $serial->serialid, 'Serial not deleted as the argument was not passed' ); |
1434 |
is( $serial_item_check, undef, 'Serial item deleted by cascade' ); |
1435 |
|
1436 |
$biblio = $builder->build_sample_biblio; |
1437 |
$item_with_serial = $builder->build_sample_item( { biblionumber => $biblio->id } ); |
1438 |
$serial = |
1439 |
$builder->build_object( { class => 'Koha::Serials', value => { biblionumber => $biblio->biblionumber } } ); |
1440 |
$serial_item = $builder->build_object( |
1441 |
{ |
1442 |
class => 'Koha::Serial::Items', |
1443 |
value => { itemnumber => $item_with_serial->itemnumber, serialid => $serial->serialid } |
1444 |
} |
1445 |
); |
1446 |
|
1447 |
# Check serial issue is deleted when argument passed |
1448 |
$item_with_serial->safe_delete( { delete_serial_issues => 1 } ); |
1449 |
|
1450 |
$serial_check = Koha::Serials->find( $serial->serialid ); |
1451 |
$serial_item_check = Koha::Serial::Items->find( $serial_item->itemnumber ); |
1452 |
|
1453 |
is( $serial_check, undef, 'Serial deleted' ); |
1454 |
is( $serial_item_check, undef, 'Serial item deleted by cascade' ); |
1455 |
|
1456 |
$schema->storage->txn_rollback; |
1457 |
}; |
1458 |
|
1409 |
$schema->storage->txn_rollback; |
1459 |
$schema->storage->txn_rollback; |
1410 |
}; |
1460 |
}; |
1411 |
|
1461 |
|
1412 |
- |
|
|