|
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 |
- |
|
|