Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 3; |
20 |
use Test::More tests => 4; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use Test::Warn; |
22 |
use Test::Warn; |
23 |
|
23 |
|
Lines 262-265
subtest "AddReturn logging on statistics table (item-level_itypes=0)" => sub {
Link Here
|
262 |
"biblio-level itype recorded on statistics for return"); |
262 |
"biblio-level itype recorded on statistics for return"); |
263 |
}; |
263 |
}; |
264 |
|
264 |
|
|
|
265 |
subtest 'Handle ids duplication' => sub { |
266 |
plan tests => 1; |
267 |
|
268 |
my $biblio = $builder->build( { source => 'Biblio' } ); |
269 |
my $item = $builder->build( |
270 |
{ |
271 |
source => 'Item', |
272 |
value => { |
273 |
biblionumber => $biblio->{biblionumber}, |
274 |
notforloan => 0, |
275 |
itemlost => 0, |
276 |
withdrawn => 0, |
277 |
|
278 |
} |
279 |
} |
280 |
); |
281 |
my $patron = $builder->build({source => 'Borrower'}); |
282 |
|
283 |
my $checkout = AddIssue( $patron, $item->{barcode} ); |
284 |
$builder->build({ source => 'OldIssue', value => { issue_id => $checkout->issue_id } }); |
285 |
|
286 |
my @a = AddReturn( $item->{barcode} ); |
287 |
my $old_checkout = Koha::Old::Checkouts->find( $checkout->issue_id ); |
288 |
isnt( $old_checkout->itemnumber, $item->{itemnumber}, 'If an item is checked-in, it should be moved to old_issues even if the issue_id already existed in the table' ); |
289 |
}; |
290 |
|
265 |
1; |
291 |
1; |
266 |
- |
|
|