Lines 6-12
Link Here
|
6 |
use Modern::Perl; |
6 |
use Modern::Perl; |
7 |
|
7 |
|
8 |
use Test::NoWarnings; |
8 |
use Test::NoWarnings; |
9 |
use Test::More tests => 14; |
9 |
use Test::More tests => 15; |
10 |
use Test::MockModule; |
10 |
use Test::MockModule; |
11 |
use Test::Warn; |
11 |
use Test::Warn; |
12 |
use MARC::Field; |
12 |
use MARC::Field; |
Lines 74-79
$module->mock(
Link Here
|
74 |
[ '001', '5' ], |
74 |
[ '001', '5' ], |
75 |
[ '100', ' ', ' ', a => 'Lastname, Firstname', b => 'b', c => 'c', i => 'i' ] |
75 |
[ '100', ' ', ' ', a => 'Lastname, Firstname', b => 'b', c => 'c', i => 'i' ] |
76 |
); |
76 |
); |
|
|
77 |
} elsif ( $authid eq '6' ) { |
78 |
$record->add_fields( |
79 |
[ '001', '6' ], |
80 |
[ '199', ' ', ' ', a => 'Unkown heading' ], |
81 |
[ '799', ' ', ' ', a => 'Unkown field', x => 'Unkown subdivision', 9 => '1' ] |
82 |
); |
77 |
} else { |
83 |
} else { |
78 |
undef $record; |
84 |
undef $record; |
79 |
} |
85 |
} |
Lines 212-217
$marc21_subdiv->add_fields( [ '181', ' ', ' ', x => 'Political aspects' ] );
Link Here
|
212 |
warning_is { BuildSummary( $marc21_subdiv, 99999, 'GEN_SUBDIV' ) } [], |
218 |
warning_is { BuildSummary( $marc21_subdiv, 99999, 'GEN_SUBDIV' ) } [], |
213 |
'BuildSummary does not generate warning if main heading subfield not present'; |
219 |
'BuildSummary does not generate warning if main heading subfield not present'; |
214 |
|
220 |
|
|
|
221 |
warning_is { |
222 |
BuildSummary( C4::AuthoritiesMarc::GetAuthority(6), 6, 'CUSTOM_TYPE' ) } [], |
223 |
'BuildSummary does not generate warning if 7xx is unkown'; |
224 |
|
215 |
t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' ); |
225 |
t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' ); |
216 |
$dbh->do( |
226 |
$dbh->do( |
217 |
q{ |
227 |
q{ |
218 |
- |
|
|