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

(-)a/t/db_dependent/Koha/Biblio/Metadata/Extractor/MARC/MARC21.t (-8 / +11 lines)
Lines 28-34 use t::lib::Mocks; Link Here
28
28
29
use C4::Biblio qw(ModBiblio);
29
use C4::Biblio qw(ModBiblio);
30
use Koha::Biblio::Metadata::Extractor;
30
use Koha::Biblio::Metadata::Extractor;
31
use Koha::Biblio::Metadata::Extractor::MARC::MARC21;
32
31
33
my $schema  = Koha::Database->schema;
32
my $schema  = Koha::Database->schema;
34
my $builder = t::lib::TestBuilder->new;
33
my $builder = t::lib::TestBuilder->new;
Lines 92-110 subtest 'get_normalized_oclc() tests' => sub { Link Here
92
91
93
subtest 'check_fixed_length' => sub {
92
subtest 'check_fixed_length' => sub {
94
93
95
    plan tests => 6;
94
    plan tests => 8;
96
    $schema->storage->txn_begin;
95
    $schema->storage->txn_begin;
97
96
98
    my $record = MARC::Record->new;
97
    # Check empty object
98
    my $record    = MARC::Record->new;
99
    my $extractor = Koha::Biblio::Metadata::Extractor::MARC->new( { metadata => $record } );
100
    my $result    = $extractor->check_fixed_length;
101
    is( scalar @{ $result->{passed} }, 0, 'No passed fields' );
102
    is( scalar @{ $result->{failed} }, 0, 'No failed fields' );
103
99
    $record->append_fields(
104
    $record->append_fields(
100
        MARC::Field->new( '005', '0123456789012345' ),
105
        MARC::Field->new( '005', '0123456789012345' ),
101
    );
106
    );
102
    my $biblio = $builder->build_sample_biblio;
107
    my $biblio = $builder->build_sample_biblio;
103
    ModBiblio( $record, $biblio->biblionumber );
108
    ModBiblio( $record, $biblio->biblionumber );
104
109
105
    my $extractor;
110
    $extractor = Koha::Biblio::Metadata::Extractor::MARC->new( { biblio => $biblio } );
106
    $extractor = Koha::Biblio::Metadata::Extractor::MARC::MARC21->new( { biblio => $biblio } );
111
    $result    = $extractor->check_fixed_length;
107
    my $result = $extractor->check_fixed_length;
108
    is( $result->{passed}->[0],        '005', 'Check first passed field' );
112
    is( $result->{passed}->[0],        '005', 'Check first passed field' );
109
    is( scalar @{ $result->{failed} }, 0,     'Check failed count' );
113
    is( scalar @{ $result->{failed} }, 0,     'Check failed count' );
110
114
Lines 116-122 subtest 'check_fixed_length' => sub { Link Here
116
    );
120
    );
117
121
118
    # Passing latest record changes via metadata now
122
    # Passing latest record changes via metadata now
119
    $extractor = Koha::Biblio::Metadata::Extractor::MARC::MARC21->new( { metadata => $record } );
123
    $extractor = Koha::Biblio::Metadata::Extractor::MARC->new( { metadata => $record } );
120
    $result    = $extractor->check_fixed_length;
124
    $result    = $extractor->check_fixed_length;
121
    is( $result->{passed}->[1], '007', 'Check second passed field' );
125
    is( $result->{passed}->[1], '007', 'Check second passed field' );
122
    is( $result->{passed}->[2], '007', 'Check third passed field' );
126
    is( $result->{passed}->[2], '007', 'Check third passed field' );
123
- 

Return to bug 41031