|
Lines 27-33
use Koha::Item;
Link Here
|
| 27 |
use Koha::DateUtils; |
27 |
use Koha::DateUtils; |
| 28 |
use t::lib::TestBuilder; |
28 |
use t::lib::TestBuilder; |
| 29 |
|
29 |
|
| 30 |
use Test::More tests => 31; |
30 |
use Test::More tests => 32; |
|
|
31 |
use Test::Warn; |
| 31 |
|
32 |
|
| 32 |
use_ok('Koha::Hold'); |
33 |
use_ok('Koha::Hold'); |
| 33 |
|
34 |
|
|
Lines 86-92
$hold->resume();
Link Here
|
| 86 |
is( $hold->suspend, 0, "Hold is not suspended" ); |
87 |
is( $hold->suspend, 0, "Hold is not suspended" ); |
| 87 |
is( $hold->suspend_until, undef, "Hold no longer has suspend_until date" ); |
88 |
is( $hold->suspend_until, undef, "Hold no longer has suspend_until date" ); |
| 88 |
$hold->found('W'); |
89 |
$hold->found('W'); |
| 89 |
$hold->suspend_hold(); |
90 |
warning_like { $hold->suspend_hold } |
|
|
91 |
qr/Unable to suspend waiting hold!/, 'Catch warn about failed suspend'; |
| 90 |
is( $hold->suspend, 0, "Waiting hold cannot be suspended" ); |
92 |
is( $hold->suspend, 0, "Waiting hold cannot be suspended" ); |
| 91 |
|
93 |
|
| 92 |
$item = $hold->item(); |
94 |
$item = $hold->item(); |
| 93 |
- |
|
|