|
Lines 20-26
Link Here
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::NoWarnings; |
22 |
use Test::NoWarnings; |
| 23 |
use Test::More tests => 22; |
23 |
use Test::More tests => 23; |
| 24 |
|
24 |
|
| 25 |
use Test::MockModule; |
25 |
use Test::MockModule; |
| 26 |
use Test::Exception; |
26 |
use Test::Exception; |
|
Lines 35-40
use Koha::Items;
Link Here
|
| 35 |
use Koha::Database; |
35 |
use Koha::Database; |
| 36 |
use Koha::DateUtils qw( dt_from_string ); |
36 |
use Koha::DateUtils qw( dt_from_string ); |
| 37 |
use Koha::Statistics; |
37 |
use Koha::Statistics; |
|
|
38 |
use Koha::Recalls; |
| 38 |
|
39 |
|
| 39 |
use t::lib::TestBuilder; |
40 |
use t::lib::TestBuilder; |
| 40 |
use t::lib::Mocks; |
41 |
use t::lib::Mocks; |
|
Lines 2503-2505
subtest 'filter_by_in_transit' => sub {
Link Here
|
| 2503 |
$schema->storage->txn_rollback; |
2504 |
$schema->storage->txn_rollback; |
| 2504 |
|
2505 |
|
| 2505 |
}; |
2506 |
}; |
| 2506 |
- |
2507 |
|
|
|
2508 |
subtest 'filter_by_has_holds' => sub { |
| 2509 |
plan tests => 3; |
| 2510 |
|
| 2511 |
$schema->storage->txn_begin; |
| 2512 |
|
| 2513 |
my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
| 2514 |
t::lib::Mocks::mock_userenv( { branchcode => $patron->branchcode } ); |
| 2515 |
|
| 2516 |
my $library_1 = $builder->build( { source => 'Branch' } ); |
| 2517 |
my $library_2 = $builder->build( { source => 'Branch' } ); |
| 2518 |
|
| 2519 |
my $biblio = $builder->build_sample_biblio(); |
| 2520 |
my $item_1 = $builder->build_sample_item( { biblionumber => $biblio->biblionumber, } ); |
| 2521 |
my $item_2 = $builder->build_sample_item( { biblionumber => $biblio->biblionumber, } ); |
| 2522 |
|
| 2523 |
is( $biblio->items->filter_by_has_holds->count, 0, "Filtered to 0 holds" ); |
| 2524 |
|
| 2525 |
my $hold_1 = $builder->build( |
| 2526 |
{ |
| 2527 |
source => 'Reserve', |
| 2528 |
value => { |
| 2529 |
itemnumber => $item_1->itemnumber, reservedate => dt_from_string, |
| 2530 |
} |
| 2531 |
} |
| 2532 |
); |
| 2533 |
|
| 2534 |
is( $biblio->items->filter_by_has_holds->count, 1, "Filtered to 1 hold" ); |
| 2535 |
|
| 2536 |
my $hold_2 = $builder->build( |
| 2537 |
{ |
| 2538 |
source => 'Reserve', |
| 2539 |
value => { |
| 2540 |
itemnumber => $item_2->itemnumber, reservedate => dt_from_string, |
| 2541 |
} |
| 2542 |
} |
| 2543 |
); |
| 2544 |
|
| 2545 |
is( $biblio->items->filter_by_has_holds->count, 2, "Filtered to 2 holds" ); |
| 2546 |
|
| 2547 |
$schema->storage->txn_rollback; |
| 2548 |
|
| 2549 |
}; |