|
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 |
- |
|
|