Lines 202-208
subtest 'AddAuthority should respect AUTO_INCREMENT (BZ 18104)' => sub {
Link Here
|
202 |
isnt( $id1, $id2, 'Do not return the same id again' ); |
202 |
isnt( $id1, $id2, 'Do not return the same id again' ); |
203 |
t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' ); |
203 |
t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' ); |
204 |
my $id3 = AddAuthority( $record, undef, 'GEOGR_NAME' ); |
204 |
my $id3 = AddAuthority( $record, undef, 'GEOGR_NAME' ); |
205 |
is( $id3 > 0, 1, 'Tested AddAuthority with UNIMARC' ); |
205 |
ok( $id3 > 0, 'Tested AddAuthority with UNIMARC' ); |
206 |
is( $record->field('001')->data, $id3, 'Check updated 001' ); |
206 |
is( $record->field('001')->data, $id3, 'Check updated 001' ); |
207 |
}; |
207 |
}; |
208 |
|
208 |
|
209 |
- |
|
|