|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 77; |
20 |
use Test::More tests => 79; |
| 21 |
use Test::Warn; |
21 |
use Test::Warn; |
| 22 |
|
22 |
|
| 23 |
use MARC::Record; |
23 |
use MARC::Record; |
|
Lines 168-180
t::lib::Mocks::mock_preference('maxreserves', 3);
Link Here
|
| 168 |
|
168 |
|
| 169 |
ok(!ReachedMaxReserves($borrowernumber), 'First borrower doesn\'t reached max reserves'); |
169 |
ok(!ReachedMaxReserves($borrowernumber), 'First borrower doesn\'t reached max reserves'); |
| 170 |
|
170 |
|
| 171 |
AddReserve($branch, $borrowernumber, $miniaturist_id, |
171 |
ok(!ReachedMaxReserves($borrowernumber, 2), 'First borrower asking for 2 documents doesn\'t reached max reserves'); |
| 172 |
$constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
|
|
| 173 |
$title_14155a, $checkitem, $found); |
| 174 |
|
172 |
|
| 175 |
AddReserve($branch, $borrowernumber, $broken_id, |
173 |
ok(ReachedMaxReserves($borrowernumber, 3), 'First borrower asking for 3 documents reached max reserves'); |
| 176 |
$constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
174 |
|
| 177 |
$title_14155b, $checkitem, $found); |
175 |
AddReserve($branch, $borrowernumber, $miniaturist_id, |
|
|
176 |
$bibitems, $priority, $resdate, $expdate, $notes, |
| 177 |
$title_14155a, $checkitem, $found); |
| 178 |
|
| 179 |
AddReserve($branch, $borrowernumber, $broken_id, |
| 180 |
$bibitems, $priority, $resdate, $expdate, $notes, |
| 181 |
$title_14155b, $checkitem, $found); |
| 178 |
|
182 |
|
| 179 |
ok(ReachedMaxReserves($borrowernumber), 'First borrower reached max reserves'); |
183 |
ok(ReachedMaxReserves($borrowernumber), 'First borrower reached max reserves'); |
| 180 |
|
184 |
|
| 181 |
- |
|
|