Lines 495-501
subtest "GetIssuingCharges tests" => sub {
Link Here
|
495 |
|
495 |
|
496 |
my ( $reused_itemnumber_1, $reused_itemnumber_2 ); |
496 |
my ( $reused_itemnumber_1, $reused_itemnumber_2 ); |
497 |
subtest "CanBookBeRenewed tests" => sub { |
497 |
subtest "CanBookBeRenewed tests" => sub { |
498 |
plan tests => 114; |
498 |
plan tests => 116; |
499 |
|
499 |
|
500 |
C4::Context->set_preference( 'ItemsDeniedRenewal', '' ); |
500 |
C4::Context->set_preference( 'ItemsDeniedRenewal', '' ); |
501 |
|
501 |
|
Lines 1821-1826
subtest "CanBookBeRenewed tests" => sub {
Link Here
|
1821 |
"Account line description must not contain 'Lost Items ', but be title, barcode, itemcallnumber" |
1821 |
"Account line description must not contain 'Lost Items ', but be title, barcode, itemcallnumber" |
1822 |
); |
1822 |
); |
1823 |
|
1823 |
|
|
|
1824 |
t::lib::Mocks::mock_preference('FineNoRenewals', 0); |
1825 |
|
1824 |
# Recalls |
1826 |
# Recalls |
1825 |
t::lib::Mocks::mock_preference( 'UseRecalls', 1 ); |
1827 |
t::lib::Mocks::mock_preference( 'UseRecalls', 1 ); |
1826 |
Koha::CirculationRules->set_rules( |
1828 |
Koha::CirculationRules->set_rules( |
Lines 1897-1902
subtest "CanBookBeRenewed tests" => sub {
Link Here
|
1897 |
( $renewokay, $error ) = CanBookBeRenewed( $renewing_borrower_obj, $recall_issue ); |
1899 |
( $renewokay, $error ) = CanBookBeRenewed( $renewing_borrower_obj, $recall_issue ); |
1898 |
is( $renewokay, 1, 'Can renew item if biblio-level recall has already been allocated an item' ); |
1900 |
is( $renewokay, 1, 'Can renew item if biblio-level recall has already been allocated an item' ); |
1899 |
$recall->set_cancelled; |
1901 |
$recall->set_cancelled; |
|
|
1902 |
|
1903 |
# Too much debt |
1904 |
t::lib::Mocks::mock_preference('FineNoRenewals', 1); |
1905 |
( $renewokay, $error ) = CanBookBeRenewed($renewing_borrower_obj, $issue_1); |
1906 |
is( $renewokay, 0, 'Cannot renew, too much debt and FineNoRenewals=1' ); |
1907 |
is( $error, 'too_much_oweing', 'Cannot renew, debt not allowed (returned code is too_much_oweing)'); |
1908 |
C4::Context->dbh->do("DELETE FROM accountlines"); |
1900 |
}; |
1909 |
}; |
1901 |
|
1910 |
|
1902 |
subtest "CanBookBeRenewed | bookings" => sub { |
1911 |
subtest "CanBookBeRenewed | bookings" => sub { |
1903 |
- |
|
|