Lines 653-659
subtest 'deletedbiblio_metadata' => sub {
Link Here
|
653 |
|
653 |
|
654 |
subtest 'DelBiblio' => sub { |
654 |
subtest 'DelBiblio' => sub { |
655 |
|
655 |
|
656 |
plan tests => 5; |
656 |
plan tests => 6; |
657 |
|
657 |
|
658 |
t::lib::Mocks::mock_preference( 'RealTimeHoldsQueue', 0 ); |
658 |
t::lib::Mocks::mock_preference( 'RealTimeHoldsQueue', 0 ); |
659 |
|
659 |
|
Lines 689-698
subtest 'DelBiblio' => sub {
Link Here
|
689 |
} |
689 |
} |
690 |
} |
690 |
} |
691 |
); |
691 |
); |
|
|
692 |
|
693 |
my $order_basket = $builder->build( { source => 'Aqbasket' } ); |
694 |
|
695 |
my $orderinfo = { |
696 |
biblionumber => $biblio->biblionumber, |
697 |
basketno => $order_basket->{basketno}, |
698 |
}; |
699 |
my $order = $builder->build_object( |
700 |
{ class => 'Koha::Acquisition::Orders', value => $orderinfo } ); |
701 |
|
692 |
C4::Biblio::DelBiblio($biblio->biblionumber); # Or $biblio->delete |
702 |
C4::Biblio::DelBiblio($biblio->biblionumber); # Or $biblio->delete |
693 |
is( $subscription->get_from_storage, undef, 'subscription should be deleted on biblio deletion' ); |
703 |
is( $subscription->get_from_storage, undef, 'subscription should be deleted on biblio deletion' ); |
694 |
is( $serial->get_from_storage, undef, 'serial should be deleted on biblio deletion' ); |
704 |
is( $serial->get_from_storage, undef, 'serial should be deleted on biblio deletion' ); |
695 |
is( $subscription_history->get_from_storage, undef, 'subscription history should be deleted on biblio deletion' ); |
705 |
is( $subscription_history->get_from_storage, undef, 'subscription history should be deleted on biblio deletion' ); |
|
|
706 |
is( $order->get_from_storage->deleted_biblionumber, $biblio->biblionumber, 'biblionumber of order has been moved to deleted_biblionumber column' ); |
696 |
}; |
707 |
}; |
697 |
|
708 |
|
698 |
subtest 'MarcFieldForCreatorAndModifier' => sub { |
709 |
subtest 'MarcFieldForCreatorAndModifier' => sub { |
699 |
- |
|
|