Lines 649-655
subtest 'bookings() tests' => sub {
Link Here
|
649 |
}; |
649 |
}; |
650 |
|
650 |
|
651 |
subtest 'merge of records' => sub { |
651 |
subtest 'merge of records' => sub { |
652 |
plan tests => 8; |
652 |
plan tests => 9; |
653 |
|
653 |
|
654 |
subtest 'move items' => sub { |
654 |
subtest 'move items' => sub { |
655 |
plan tests => 9; |
655 |
plan tests => 9; |
Lines 702-707
subtest 'merge of records' => sub {
Link Here
|
702 |
$schema->storage->txn_rollback; |
702 |
$schema->storage->txn_rollback; |
703 |
}; |
703 |
}; |
704 |
|
704 |
|
|
|
705 |
subtest 'move item groups' => sub { |
706 |
plan tests => 3; |
707 |
$schema->storage->txn_begin; |
708 |
|
709 |
my $biblio1 = $builder->build_sample_biblio; |
710 |
my $biblio2 = $builder->build_sample_biblio; |
711 |
|
712 |
my $ig1 = $builder->build_object( |
713 |
{ class => 'Koha::Biblio::ItemGroups', value => { biblio_id => $biblio1->biblionumber } } ); |
714 |
my $ig2 = $builder->build_object( |
715 |
{ class => 'Koha::Biblio::ItemGroups', value => { biblio_id => $biblio2->biblionumber } } ); |
716 |
|
717 |
warning_like { $biblio1->merge_with( [ $biblio2->biblionumber ] ) } q{}; |
718 |
|
719 |
is( $ig1->get_from_storage->biblio_id, $biblio1->biblionumber ); |
720 |
is( $ig2->get_from_storage->biblio_id, $biblio1->biblionumber ); |
721 |
|
722 |
$schema->storage->txn_rollback; |
723 |
}; |
724 |
|
705 |
subtest 'move article requests' => sub { |
725 |
subtest 'move article requests' => sub { |
706 |
plan tests => 3; |
726 |
plan tests => 3; |
707 |
$schema->storage->txn_begin; |
727 |
$schema->storage->txn_begin; |
708 |
- |
|
|