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

(-)a/t/db_dependent/AuthoritiesMarc.t (-2 / +13 lines)
Lines 5-11 Link Here
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
7
8
use Test::More tests => 8;
8
use Test::More tests => 9;
9
use Test::MockModule;
9
use Test::MockModule;
10
use Test::Warn;
10
use Test::Warn;
11
use MARC::Record;
11
use MARC::Record;
Lines 191-194 is_deeply( Link Here
191
    'test BuildSummary for UNIMARC'
191
    'test BuildSummary for UNIMARC'
192
);
192
);
193
193
194
subtest 'AddAuthority should respect AUTO_INCREMENT (BZ 18104)' => sub {
195
    plan tests => 1;
196
197
    t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' );
198
    my $record = C4::AuthoritiesMarc::GetAuthority(1);
199
    my $id1 = AddAuthority( $record, undef, 'GEOGR_NAME' );
200
    DelAuthority( $id1 );
201
    my $id2 = AddAuthority( $record, undef, 'GEOGR_NAME' );
202
    is( $id1, $id2, 'FIXME: Got the same id back, let\'s fix that behavior' );
203
204
};
205
194
$schema->storage->txn_rollback;
206
$schema->storage->txn_rollback;
195
- 

Return to bug 18014