From c74987690f450103bc58be7dfe10517732ba8f52 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@koha-community.org>
Date: Fri, 19 Jun 2015 18:16:27 +0200
Subject: [PATCH] Bug 13853: Add tests for is_waiting

Signed-off-by: Jonathan Druart <jonathan.druart@koha-community.org>
---
 t/db_dependent/Hold.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/t/db_dependent/Hold.t b/t/db_dependent/Hold.t
index 0aa7076..ccd24cd 100755
--- a/t/db_dependent/Hold.t
+++ b/t/db_dependent/Hold.t
@@ -20,7 +20,7 @@ use Modern::Perl;
 use C4::Context;
 use Koha::Database;
 
-use Test::More tests => 5;
+use Test::More tests => 8;
 
 use_ok('Koha::Hold');
 
@@ -36,6 +36,8 @@ C4::Context->set_preference( 'ReservesMaxPickUpDelay', '' );
 my $dt = $hold->waiting_expires_on();
 is( $dt, undef, "Koha::Hold->waiting_expires_on returns undef if ReservesMaxPickUpDelay is not set");
 
+is( $hold->is_waiting, 1, 'The hold is waiting' );
+
 C4::Context->set_preference( 'ReservesMaxPickUpDelay', '5' );
 $dt = $hold->waiting_expires_on();
 is( $dt->ymd, "2000-01-06", "Koha::Hold->waiting_expires_on returns DateTime of waitingdate + ReservesMaxPickUpDelay if set");
@@ -43,10 +45,12 @@ is( $dt->ymd, "2000-01-06", "Koha::Hold->waiting_expires_on returns DateTime of
 $hold->found('T');
 $dt = $hold->waiting_expires_on();
 is( $dt, undef, "Koha::Hold->waiting_expires_on returns undef if found is not 'W' ( Set to 'T' )");
+isnt( $hold->is_waiting, 1, 'The hold is not waiting (T)' );
 
 $hold->found(q{});
 $dt = $hold->waiting_expires_on();
 is( $dt, undef, "Koha::Hold->waiting_expires_on returns undef if found is not 'W' ( Set to empty string )");
+isnt( $hold->is_waiting, 1, 'The hold is not waiting (W)' );
 
 $schema->storage->txn_rollback();
 
-- 
2.1.0