Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 58; |
20 |
use Test::More tests => 59; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use Test::Warn; |
22 |
use Test::Warn; |
23 |
|
23 |
|
Lines 90-95
my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem(
Link Here
|
90 |
$bibnum |
90 |
$bibnum |
91 |
); |
91 |
); |
92 |
|
92 |
|
|
|
93 |
my $biblio_with_no_item = $builder->build({ |
94 |
source => 'Biblio' |
95 |
}); |
96 |
|
93 |
|
97 |
|
94 |
# Modify item; setting barcode. |
98 |
# Modify item; setting barcode. |
95 |
my $testbarcode = '97531'; |
99 |
my $testbarcode = '97531'; |
Lines 511-516
$borrower->{dateofbirth} = DateTime->now->add( years => -30 );
Link Here
|
511 |
Koha::Patrons->find( $borrowernumber )->set({ dateofbirth => $borrower->{dateofbirth} })->store; |
515 |
Koha::Patrons->find( $borrowernumber )->set({ dateofbirth => $borrower->{dateofbirth} })->store; |
512 |
|
516 |
|
513 |
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber)->{status} , 'OK', "Reserving a 'PEGI 16' Biblio by a 30 year old borrower succeeds"); |
517 |
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber)->{status} , 'OK', "Reserving a 'PEGI 16' Biblio by a 30 year old borrower succeeds"); |
|
|
518 |
|
519 |
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblio_with_no_item->{biblionumber})->{status} , '', "Biblio with no item. Status is empty"); |
514 |
#### |
520 |
#### |
515 |
####### EO Bug 13113 <<< |
521 |
####### EO Bug 13113 <<< |
516 |
#### |
522 |
#### |
517 |
- |
|
|