View | Details | Raw Unified | Return to bug 42039
Collapse All | Expand All

(-)a/t/db_dependent/Biblio.t (-3 / +11 lines)
Lines 785-795 subtest 'IsMarcStructureInternal' => sub { Link Here
785
};
785
};
786
786
787
subtest 'deletedbiblio_metadata' => sub {
787
subtest 'deletedbiblio_metadata' => sub {
788
    plan tests => 2;
788
    plan tests => 3;
789
789
790
    t::lib::Mocks::mock_preference( 'RealTimeHoldsQueue', 0 );
790
    t::lib::Mocks::mock_preference( 'RealTimeHoldsQueue', 0 );
791
791
792
    my ( $biblionumber, $biblioitemnumber ) = AddBiblio( MARC::Record->new, '' );
792
    my $record_new = MARC::Record->new;
793
    $record_new->leader( substr( $record_new->leader, 0, 5 ) . 'n' . substr( $record_new->leader, 6 ) );
794
    my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record_new, '' );
793
    my $biblio_metadata = C4::Biblio::GetXmlBiblio($biblionumber);
795
    my $biblio_metadata = C4::Biblio::GetXmlBiblio($biblionumber);
794
    C4::Biblio::DelBiblio($biblionumber);
796
    C4::Biblio::DelBiblio($biblionumber);
795
    my ($moved) =
797
    my ($moved) =
Lines 800-805 subtest 'deletedbiblio_metadata' => sub { Link Here
800
        $biblionumber
802
        $biblionumber
801
    );
803
    );
802
    is( $moved, $biblionumber, 'Found in deletedbiblio_metadata' );
804
    is( $moved, $biblionumber, 'Found in deletedbiblio_metadata' );
805
    my $record_deleted = MARC::Record::new_from_xml(
806
        $schema->resultset('DeletedbiblioMetadata')->find( { biblionumber => $biblionumber } )->metadata );
807
    is(
808
        substr( $record_deleted->leader, 5, 1 ),
809
        'd', 'LDR/5 = "d" for deleted biblio record'
810
    );
811
803
};
812
};
804
813
805
subtest 'DelBiblio' => sub {
814
subtest 'DelBiblio' => sub {
806
- 

Return to bug 42039