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

(-)a/t/db_dependent/AuthoritiesMarc.t (-2 / +11 lines)
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
- 

Return to bug 40883