Lines 29-35
use Koha::Item;
Link Here
|
29 |
use Koha::DateUtils; |
29 |
use Koha::DateUtils; |
30 |
use t::lib::TestBuilder; |
30 |
use t::lib::TestBuilder; |
31 |
|
31 |
|
32 |
use Test::More tests => 31; |
32 |
use Test::More tests => 33; |
33 |
use Test::Warn; |
33 |
use Test::Warn; |
34 |
|
34 |
|
35 |
use_ok('Koha::Hold'); |
35 |
use_ok('Koha::Hold'); |
Lines 92-97
$hold->suspend_hold( $dt );
Link Here
|
92 |
$dt->truncate( to => 'day' ); |
92 |
$dt->truncate( to => 'day' ); |
93 |
is( $hold->suspend, 1, "Hold is suspended" ); |
93 |
is( $hold->suspend, 1, "Hold is suspended" ); |
94 |
is( $hold->suspend_until, "$dt", "Hold is suspended with a date, truncation takes place automatically" ); |
94 |
is( $hold->suspend_until, "$dt", "Hold is suspended with a date, truncation takes place automatically" ); |
|
|
95 |
$hold->suspend_hold; |
96 |
is( $hold->suspend, 1, "Hold is suspended" ); |
97 |
is( $hold->suspend_until, undef, "Hold is suspended without a date" ); |
95 |
$hold->resume(); |
98 |
$hold->resume(); |
96 |
is( $hold->suspend, 0, "Hold is not suspended" ); |
99 |
is( $hold->suspend, 0, "Hold is not suspended" ); |
97 |
is( $hold->suspend_until, undef, "Hold no longer has suspend_until date" ); |
100 |
is( $hold->suspend_until, undef, "Hold no longer has suspend_until date" ); |
98 |
- |
|
|