|
Lines 435-441
subtest 'Koha::Patrons->delete' => sub {
Link Here
|
| 435 |
my $id1 = $patron1->borrowernumber; |
435 |
my $id1 = $patron1->borrowernumber; |
| 436 |
my $set = Koha::Patrons->search({ borrowernumber => { '>=' => $id1 }}); |
436 |
my $set = Koha::Patrons->search({ borrowernumber => { '>=' => $id1 }}); |
| 437 |
is( $set->count, 2, 'Two patrons found as expected' ); |
437 |
is( $set->count, 2, 'Two patrons found as expected' ); |
| 438 |
is( $set->delete({ move => 1 }), 1, 'Two patrons deleted' ); |
438 |
is( $set->delete({ move => 1 }), 2, 'Two patrons deleted' ); |
| 439 |
is( $moved_to_deleted, 2, 'Patrons moved to deletedborrowers' ); |
439 |
is( $moved_to_deleted, 2, 'Patrons moved to deletedborrowers' ); |
| 440 |
|
440 |
|
| 441 |
# Add again, test if we can raise an exception |
441 |
# Add again, test if we can raise an exception |
| 442 |
- |
|
|