Lines 150-156
subtest "delete() tests" => sub {
Link Here
|
150 |
|
150 |
|
151 |
my $hold_object = Koha::Holds->find( $hold->{ reserve_id } ); |
151 |
my $hold_object = Koha::Holds->find( $hold->{ reserve_id } ); |
152 |
my $deleted = $hold_object->delete; |
152 |
my $deleted = $hold_object->delete; |
153 |
is( $deleted, 1, 'Koha::Hold->delete should return 1 if the hold has been correctly deleted' ); |
153 |
is( ref($deleted), 'Koha::Hold', 'Koha::Hold->delete should return the Koha::Hold object if the hold has been correctly deleted' ); |
154 |
is( Koha::Holds->search({ reserve_id => $hold->{ reserve_id } })->count, 0, |
154 |
is( Koha::Holds->search({ reserve_id => $hold->{ reserve_id } })->count, 0, |
155 |
"Koha::Hold->delete should have deleted the hold" ); |
155 |
"Koha::Hold->delete should have deleted the hold" ); |
156 |
|
156 |
|
Lines 165-171
subtest "delete() tests" => sub {
Link Here
|
165 |
|
165 |
|
166 |
$hold_object = Koha::Holds->find( $hold->{ reserve_id } ); |
166 |
$hold_object = Koha::Holds->find( $hold->{ reserve_id } ); |
167 |
$deleted = $hold_object->delete; |
167 |
$deleted = $hold_object->delete; |
168 |
is( $deleted, 1, 'Koha::Hold->delete should return 1 if the hold has been correctly deleted' ); |
168 |
is( ref($deleted), 'Koha::Hold', 'Koha::Hold->delete should return a Koha::Hold object if the hold has been correctly deleted' ); |
169 |
is( Koha::Holds->search({ reserve_id => $hold->{ reserve_id } })->count, 0, |
169 |
is( Koha::Holds->search({ reserve_id => $hold->{ reserve_id } })->count, 0, |
170 |
"Koha::Hold->delete should have deleted the hold" ); |
170 |
"Koha::Hold->delete should have deleted the hold" ); |
171 |
|
171 |
|
172 |
- |
|
|