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

(-)a/t/db_dependent/Reserves.t (-2 / +16 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 18;
5
use Test::More tests => 20;
6
use MARC::Record;
6
use MARC::Record;
7
use DateTime::Duration;
7
use DateTime::Duration;
8
8
Lines 269-275 is(exists $messages->{ResFound}?1:0, 1, 'AddReturn considers future reserve with Link Here
269
# End of tests for bug 9761 (ConfirmFutureHolds)
269
# End of tests for bug 9761 (ConfirmFutureHolds)
270
270
271
# test marking a hold as captured
271
# test marking a hold as captured
272
my $hold_notice_count = count_hold_print_messages();
272
ModReserveAffect($itemnumber, $requesters{'CPL'}, 0);
273
ModReserveAffect($itemnumber, $requesters{'CPL'}, 0);
274
my $new_count = count_hold_print_messages();
275
is($new_count, $hold_notice_count + 1, 'patron notified when item set to waiting');
276
277
# test that duplicate notices aren't generated
278
ModReserveAffect($itemnumber, $requesters{'CPL'}, 0);
279
$new_count = count_hold_print_messages();
280
is($new_count, $hold_notice_count + 1, 'patron not notified a second time (bug 11445)');
273
281
274
is(
282
is(
275
    DelItemCheck($dbh, $bibnum, $itemnumber),
283
    DelItemCheck($dbh, $bibnum, $itemnumber),
Lines 281-283 my $letter = ReserveSlip('CPL', $requesters{'CPL'}, $bibnum); Link Here
281
ok(defined($letter), 'can successfully generate hold slip (bug 10949)');
289
ok(defined($letter), 'can successfully generate hold slip (bug 10949)');
282
290
283
$dbh->rollback;
291
$dbh->rollback;
284
- 
292
293
sub count_hold_print_messages {
294
    my $message_count = $dbh->selectall_arrayref(q{
295
        SELECT COUNT(*) FROM message_queue WHERE letter_code = 'HOLD_PRINT'
296
    });
297
    return $message_count->[0]->[0];
298
}

Return to bug 11445