|
Lines 615-622
subtest 'search_upcoming_membership_expires' => sub {
Link Here
|
| 615 |
Koha::Patrons->search({ borrowernumber => { in => [ $patron_1->{borrowernumber}, $patron_2->{borrowernumber}, $patron_3->{borrowernumber} ] } })->delete; |
615 |
Koha::Patrons->search({ borrowernumber => { in => [ $patron_1->{borrowernumber}, $patron_2->{borrowernumber}, $patron_3->{borrowernumber} ] } })->delete; |
| 616 |
}; |
616 |
}; |
| 617 |
|
617 |
|
| 618 |
subtest 'holds' => sub { |
618 |
subtest 'holds and old_holds' => sub { |
| 619 |
plan tests => 3; |
619 |
plan tests => 6; |
| 620 |
|
620 |
|
| 621 |
my $library = $builder->build( { source => 'Branch' } ); |
621 |
my $library = $builder->build( { source => 'Branch' } ); |
| 622 |
my ($biblionumber_1) = AddBiblio( MARC::Record->new, '' ); |
622 |
my ($biblionumber_1) = AddBiblio( MARC::Record->new, '' ); |
|
Lines 673-678
subtest 'holds' => sub {
Link Here
|
| 673 |
$holds = $patron->holds; |
673 |
$holds = $patron->holds; |
| 674 |
is( $holds->count, 2, 'There should be 2 holds placed by this patron' ); |
674 |
is( $holds->count, 2, 'There should be 2 holds placed by this patron' ); |
| 675 |
|
675 |
|
|
|
676 |
my $old_holds = $patron->old_holds; |
| 677 |
is( ref($old_holds), 'Koha::Old::Holds', |
| 678 |
'Koha::Patron->old_holds should return a Koha::Old::Holds objects' ); |
| 679 |
is( $old_holds->count, 0, 'There should not be any old holds yet'); |
| 680 |
|
| 681 |
my $hold = $holds->next; |
| 682 |
$hold->cancel; |
| 683 |
|
| 684 |
$old_holds = $patron->old_holds; |
| 685 |
is( $old_holds->count, 1, 'There should be 1 old (cancelled) hold'); |
| 686 |
|
| 687 |
$old_holds->delete; |
| 676 |
$holds->delete; |
688 |
$holds->delete; |
| 677 |
$patron->delete; |
689 |
$patron->delete; |
| 678 |
}; |
690 |
}; |
| 679 |
- |
|
|