From 02bd22827584c1ce9830d562800199968fe239af Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Tue, 5 Nov 2013 16:25:56 +0100
Subject: [PATCH] Bug 8918: Add a unit test for CalculatePriority
Content-Type: text/plain; charset=utf-8
Rebased on January 29, 2014 (marcelr)
Added text on the two 'is'-statements.
---
t/db_dependent/Reserves.t | 12 +++++++++++-
1 files changed, 11 insertions(+), 1 deletions(-)
diff --git a/t/db_dependent/Reserves.t b/t/db_dependent/Reserves.t
index db82296..9cfba2d 100755
--- a/t/db_dependent/Reserves.t
+++ b/t/db_dependent/Reserves.t
@@ -2,7 +2,7 @@
use Modern::Perl;
-use Test::More tests => 23;
+use Test::More tests => 25;
use MARC::Record;
use DateTime::Duration;
@@ -317,6 +317,16 @@ ModReserveAffect( $itemnumber, $requesters{'CPL'} , 0); #confirm hold
is(defined $results[3]?1:0, 1, 'GetReservesFromItemnumber returns a future wait (confirmed future hold)');
# End of tests for bug 9788
+# Tests for CalculatePriority (bug 8918)
+my $p = C4::Reserves::CalculatePriority($bibnum2, $resdate);
+is($p, 4, 'CalculatePriority should now return priority 4');
+AddReserve('CPL', $requesters{'CPL'}, $bibnum,
+ $constraint, $bibitems, $p, $resdate, $expdate, $notes,
+ $title, $checkitem, $found);
+$p = C4::Reserves::CalculatePriority($bibnum2);
+is($p, 5, 'CalculatePriority should now return priority 5');
+# End of tests for bug 8918
+
$dbh->rollback;
sub count_hold_print_messages {
--
1.7.7.6