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