From c44863b7a26b6252178d53f9e8dae8e7f90bc7e1 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 19 Jun 2015 18:16:27 +0200 Subject: [PATCH] Bug 13853: Add tests for is_waiting --- 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