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