Attachment #95868 for bug #24083

View | Details | Raw Unified | Return to bug 24083
Collapse All | Expand All





my ( $reused_itemnumber_1, $reused_itemnumber_2 );
subtest "CanBookBeRenewed tests" => sub {
    plan tests => 73;

    C4::Context->set_preference('ItemsDeniedRenewal','');
    # Generate test biblio

    is( $renewokay, 0, 'Cannot renew, 0 renewals allowed');
    is( $error, 'too_many', 'Cannot renew, 0 renewals allowed (returned code is too_many)');

    # Too many unseen renewals
    $dbh->do('UPDATE issuingrules SET unseen_renewals_allowed = 2, renewalsallowed = 10');
    $dbh->do('UPDATE issues SET unseen_renewals = 2 where borrowernumber = ? AND itemnumber = ?', undef, ($renewing_borrowernumber, $item_1->itemnumber));
    ( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $item_1->itemnumber);
    is( $renewokay, 0, 'Cannot renew, 0 unseen renewals allowed');
    is( $error, 'too_unseen', 'Cannot renew, returned code is too_unseen');
    $dbh->do('UPDATE issuingrules SET norenewalbefore = NULL, renewalsallowed = 0');

    # Test WhenLostForgiveFine and WhenLostChargeReplacementFee
    t::lib::Mocks::mock_preference('WhenLostForgiveFine','1');
    t::lib::Mocks::mock_preference('WhenLostChargeReplacementFee','1');

Lines 32-37 use Koha::Checkouts; Link Here

(-)a/t/db_dependent/Circulation/issue.t (-1 / +13 lines)
32	use Koha::Database;	32	use Koha::Database;
33	use Koha::DateUtils;	33	use Koha::DateUtils;
34	use Koha::Holds;	34	use Koha::Holds;
		35	use Koha::IssuingRules;
35	use Koha::Items;	36	use Koha::Items;
36	use Koha::Library;	37	use Koha::Library;
37	use Koha::Patrons;	38	use Koha::Patrons;
Lines 261-267 my $datedue4 = AddRenewal( $opac_renew_issue->{borrowernumber}, $opac_renew_issu Link Here
261	$stat = $dbh->selectrow_hashref("SELECT * FROM statistics WHERE type = 'renew' AND borrowernumber = ? AND itemnumber = ? AND branch = ?", undef, $opac_renew_issue->{borrowernumber}, $opac_renew_issue->{itemnumber}, "Stavromula" );	262	$stat = $dbh->selectrow_hashref("SELECT * FROM statistics WHERE type = 'renew' AND borrowernumber = ? AND itemnumber = ? AND branch = ?", undef, $opac_renew_issue->{borrowernumber}, $opac_renew_issue->{itemnumber}, "Stavromula" );
262	ok( $stat, "Bug 18572 - 'Bug 18572 - OpacRenewalBranch is now respected" );	263	ok( $stat, "Bug 18572 - 'Bug 18572 - OpacRenewalBranch is now respected" );
263		264
		265	# Unseen rewnewals
		266	t::lib::Mocks::mock_preference('UnseenRenewals', 1);
264		267
		268	# Does an unseen renewal increment the issue's count
		269	my ( $unseen_before ) = ( C4::Circulation::GetRenewCount( $opac_renew_issue->{borrowernumber}, $opac_renew_issue->{itemnumber} ) )[3];
		270	AddRenewal( $opac_renew_issue->{borrowernumber}, $opac_renew_issue->{itemnumber}, $branchcode_1, undef, undef, 0 );
		271	my ( $unseen_after ) = ( C4::Circulation::GetRenewCount( $opac_renew_issue->{borrowernumber}, $opac_renew_issue->{itemnumber} ) )[3];
		272	is( $unseen_after, $unseen_before + 1, 'unseen_renewals increments' );
		273
		274	# Does a seen renewal reset the unseen count
		275	AddRenewal( $opac_renew_issue->{borrowernumber}, $opac_renew_issue->{itemnumber}, $branchcode_1, undef, undef, 1 );
		276	my ( $unseen_reset ) = ( C4::Circulation::GetRenewCount( $opac_renew_issue->{borrowernumber}, $opac_renew_issue->{itemnumber} ) )[3];
		277	is( $unseen_reset, 0, 'seen renewal resets the unseen count' );
265		278
266	#Test GetBiblioIssues	279	#Test GetBiblioIssues
267	is( GetBiblioIssues(), undef, "GetBiblio Issues without parameters" );	280	is( GetBiblioIssues(), undef, "GetBiblio Issues without parameters" );
268	-

Return to bug 24083

Lines 277-283 $dbh->do( Link Here

(-)a/t/db_dependent/Circulation.t (-1 / +9 lines)
277		277
278	my ( $reused_itemnumber_1, $reused_itemnumber_2 );	278	my ( $reused_itemnumber_1, $reused_itemnumber_2 );
279	subtest "CanBookBeRenewed tests" => sub {	279	subtest "CanBookBeRenewed tests" => sub {
280	plan tests => 71;	280	plan tests => 73;
281		281
282	C4::Context->set_preference('ItemsDeniedRenewal','');	282	C4::Context->set_preference('ItemsDeniedRenewal','');
283	# Generate test biblio	283	# Generate test biblio
Lines 916-921 subtest "CanBookBeRenewed tests" => sub { Link Here
916	is( $renewokay, 0, 'Cannot renew, 0 renewals allowed');	916	is( $renewokay, 0, 'Cannot renew, 0 renewals allowed');
917	is( $error, 'too_many', 'Cannot renew, 0 renewals allowed (returned code is too_many)');	917	is( $error, 'too_many', 'Cannot renew, 0 renewals allowed (returned code is too_many)');
918		918
		919	# Too many unseen renewals
		920	$dbh->do('UPDATE issuingrules SET unseen_renewals_allowed = 2, renewalsallowed = 10');
		921	$dbh->do('UPDATE issues SET unseen_renewals = 2 where borrowernumber = ? AND itemnumber = ?', undef, ($renewing_borrowernumber, $item_1->itemnumber));
		922	( $renewokay, $error ) = CanBookBeRenewed($renewing_borrowernumber, $item_1->itemnumber);
		923	is( $renewokay, 0, 'Cannot renew, 0 unseen renewals allowed');
		924	is( $error, 'too_unseen', 'Cannot renew, returned code is too_unseen');
		925	$dbh->do('UPDATE issuingrules SET norenewalbefore = NULL, renewalsallowed = 0');
		926
919	# Test WhenLostForgiveFine and WhenLostChargeReplacementFee	927	# Test WhenLostForgiveFine and WhenLostChargeReplacementFee
920	t::lib::Mocks::mock_preference('WhenLostForgiveFine','1');	928	t::lib::Mocks::mock_preference('WhenLostForgiveFine','1');
921	t::lib::Mocks::mock_preference('WhenLostChargeReplacementFee','1');	929	t::lib::Mocks::mock_preference('WhenLostChargeReplacementFee','1');