|
Lines 15-21
Link Here
|
| 15 |
# with Koha; if not, see <http://www.gnu.org/licenses>. |
15 |
# with Koha; if not, see <http://www.gnu.org/licenses>. |
| 16 |
|
16 |
|
| 17 |
use Modern::Perl; |
17 |
use Modern::Perl; |
| 18 |
use Test::More tests => 8; |
18 |
use Test::More tests => 9; |
| 19 |
use C4::Context; |
19 |
use C4::Context; |
| 20 |
|
20 |
|
| 21 |
use C4::Members; |
21 |
use C4::Members; |
|
Lines 654-662
subtest 'General vs specific rules limit quantity correctly' => sub {
Link Here
|
| 654 |
undef, |
654 |
undef, |
| 655 |
'We are allowed one from the branch specifically now' |
655 |
'We are allowed one from the branch specifically now' |
| 656 |
); |
656 |
); |
|
|
657 |
}; |
| 657 |
|
658 |
|
|
|
659 |
subtest 'empty string means unlimited' => sub { |
| 660 |
plan tests => 1; |
| 658 |
|
661 |
|
|
|
662 |
Koha::CirculationRules->set_rules( |
| 663 |
{ |
| 664 |
branchcode => '*', |
| 665 |
categorycode => '*', |
| 666 |
itemtype => '*', |
| 667 |
rules => { |
| 668 |
maxissueqty => '', |
| 669 |
maxonsiteissueqty => 0, |
| 670 |
} |
| 671 |
}, |
| 672 |
); |
| 673 |
is( |
| 674 |
C4::Circulation::TooMany( $patron, $biblio->{biblionumber}, $item ), |
| 675 |
undef, |
| 676 |
'maxissueqty="" should mean unlimited' |
| 677 |
); |
| 659 |
|
678 |
|
|
|
679 |
teardown(); |
| 660 |
}; |
680 |
}; |
| 661 |
|
681 |
|
| 662 |
$schema->storage->txn_rollback; |
682 |
$schema->storage->txn_rollback; |
| 663 |
- |
|
|