|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 41; |
22 |
use Test::More tests => 42; |
| 23 |
|
23 |
|
| 24 |
use Koha::Database; |
24 |
use Koha::Database; |
| 25 |
|
25 |
|
|
Lines 257-262
delete $bookseller->{_fk};
Link Here
|
| 257 |
$bookseller_from_db = $rs_aqbookseller->find($bookseller); |
257 |
$bookseller_from_db = $rs_aqbookseller->find($bookseller); |
| 258 |
is( $bookseller_from_db->in_storage, 1, 'build with only_fk = 0 stores the entry correctly' ); |
258 |
is( $bookseller_from_db->in_storage, 1, 'build with only_fk = 0 stores the entry correctly' ); |
| 259 |
|
259 |
|
|
|
260 |
subtest 'Auto-increment values tests' => sub { |
| 261 |
|
| 262 |
plan tests => 2; |
| 263 |
|
| 264 |
# Pick a table with AI PK |
| 265 |
my $source = 'Biblio'; # table |
| 266 |
my $column = 'biblionumber'; # ai column |
| 267 |
|
| 268 |
my $col_info = $schema->source( $source )->column_info( $column ); |
| 269 |
is( $col_info->{is_auto_increment}, 1, "biblio.biblionumber is detected as autoincrement"); |
| 270 |
|
| 271 |
# Create a biblio |
| 272 |
my $biblio_1 = $builder->build({ source => $source }); |
| 273 |
# Get the AI value |
| 274 |
my $ai_value = $biblio_1->{ biblionumber }; |
| 275 |
# Create a biblio |
| 276 |
my $biblio_2 = $builder->build({ source => $source }); |
| 277 |
# Get the next AI value |
| 278 |
my $next_ai_value = $biblio_2->{ biblionumber }; |
| 279 |
is( $ai_value + 1, $next_ai_value, "AI values are consecutive"); |
| 280 |
|
| 281 |
}; |
| 282 |
|
| 260 |
$schema->storage->txn_rollback; |
283 |
$schema->storage->txn_rollback; |
| 261 |
|
284 |
|
| 262 |
1; |
285 |
1; |
| 263 |
- |
|
|