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