Lines 1264-1270
subtest 'store check barcodes' => sub {
Link Here
|
1264 |
}; |
1264 |
}; |
1265 |
|
1265 |
|
1266 |
subtest 'deletion' => sub { |
1266 |
subtest 'deletion' => sub { |
1267 |
plan tests => 15; |
1267 |
plan tests => 16; |
1268 |
|
1268 |
|
1269 |
$schema->storage->txn_begin; |
1269 |
$schema->storage->txn_begin; |
1270 |
|
1270 |
|
Lines 1456-1461
subtest 'deletion' => sub {
Link Here
|
1456 |
$schema->storage->txn_rollback; |
1456 |
$schema->storage->txn_rollback; |
1457 |
}; |
1457 |
}; |
1458 |
|
1458 |
|
|
|
1459 |
subtest 'serial issues tests' => sub { |
1460 |
plan tests => 4; |
1461 |
|
1462 |
t::lib::Mocks::mock_preference( 'IndependentBranches', 0 ); |
1463 |
|
1464 |
$schema->storage->txn_begin; |
1465 |
|
1466 |
my $biblio = $builder->build_sample_biblio; |
1467 |
my $item_with_serial = $builder->build_sample_item( { biblionumber => $biblio->id } ); |
1468 |
my $serial = |
1469 |
$builder->build_object( { class => 'Koha::Serials', value => { biblionumber => $biblio->biblionumber } } ); |
1470 |
my $serial_item = $builder->build_object( |
1471 |
{ |
1472 |
class => 'Koha::Serial::Items', |
1473 |
value => { itemnumber => $item_with_serial->itemnumber, serialid => $serial->serialid } |
1474 |
} |
1475 |
); |
1476 |
|
1477 |
# Check serial issue is not deleted unless argument passed |
1478 |
$item_with_serial->safe_delete( { delete_serial_issues => 0 } ); |
1479 |
|
1480 |
my $serial_check = Koha::Serials->find( $serial->serialid ); |
1481 |
my $serial_item_check = Koha::Serial::Items->find( $serial_item->itemnumber ); |
1482 |
|
1483 |
is( $serial_check->serialid, $serial->serialid, 'Serial not deleted as the argument was not passed' ); |
1484 |
is( $serial_item_check, undef, 'Serial item deleted by cascade' ); |
1485 |
|
1486 |
$biblio = $builder->build_sample_biblio; |
1487 |
$item_with_serial = $builder->build_sample_item( { biblionumber => $biblio->id } ); |
1488 |
$serial = |
1489 |
$builder->build_object( { class => 'Koha::Serials', value => { biblionumber => $biblio->biblionumber } } ); |
1490 |
$serial_item = $builder->build_object( |
1491 |
{ |
1492 |
class => 'Koha::Serial::Items', |
1493 |
value => { itemnumber => $item_with_serial->itemnumber, serialid => $serial->serialid } |
1494 |
} |
1495 |
); |
1496 |
|
1497 |
# Check serial issue is deleted when argument passed |
1498 |
$item_with_serial->safe_delete( { delete_serial_issues => 1 } ); |
1499 |
|
1500 |
$serial_check = Koha::Serials->find( $serial->serialid ); |
1501 |
$serial_item_check = Koha::Serial::Items->find( $serial_item->itemnumber ); |
1502 |
|
1503 |
is( $serial_check, undef, 'Serial deleted' ); |
1504 |
is( $serial_item_check, undef, 'Serial item deleted by cascade' ); |
1505 |
|
1506 |
$schema->storage->txn_rollback; |
1507 |
}; |
1508 |
|
1459 |
$schema->storage->txn_rollback; |
1509 |
$schema->storage->txn_rollback; |
1460 |
}; |
1510 |
}; |
1461 |
|
1511 |
|
1462 |
- |
|
|