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 105-110
my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem(
Link Here
|
105 |
$bibnum |
105 |
$bibnum |
106 |
); |
106 |
); |
107 |
|
107 |
|
|
|
108 |
my $biblio_with_no_item = $builder->build({ |
109 |
source => 'Biblio' |
110 |
}); |
111 |
|
108 |
|
112 |
|
109 |
# Modify item; setting barcode. |
113 |
# Modify item; setting barcode. |
110 |
my $testbarcode = '97531'; |
114 |
my $testbarcode = '97531'; |
Lines 533-538
$borrower->{dateofbirth} = DateTime->now->add( years => -30 );
Link Here
|
533 |
Koha::Patrons->find( $borrowernumber )->set({ dateofbirth => $borrower->{dateofbirth} })->store; |
537 |
Koha::Patrons->find( $borrowernumber )->set({ dateofbirth => $borrower->{dateofbirth} })->store; |
534 |
|
538 |
|
535 |
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber)->{status} , 'OK', "Reserving a 'PEGI 16' Biblio by a 30 year old borrower succeeds"); |
539 |
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblionumber)->{status} , 'OK', "Reserving a 'PEGI 16' Biblio by a 30 year old borrower succeeds"); |
|
|
540 |
|
541 |
is( C4::Reserves::CanBookBeReserved($borrowernumber, $biblio_with_no_item->{biblionumber})->{status} , '', "Biblio with no item. Status is empty"); |
536 |
#### |
542 |
#### |
537 |
####### EO Bug 13113 <<< |
543 |
####### EO Bug 13113 <<< |
538 |
#### |
544 |
#### |
539 |
- |
|
|