|
Lines 31-38
subtest "OverduesBlockCirc tests" => sub {
Link Here
|
| 31 |
|
31 |
|
| 32 |
plan tests => 6; |
32 |
plan tests => 6; |
| 33 |
|
33 |
|
| 34 |
my $odue_patron = $builder->build({ source => 'Borrower' }); |
34 |
my $odue_patron = $builder->build( |
| 35 |
my $good_patron = $builder->build({ source => 'Borrower' }); |
35 |
{ |
|
|
36 |
source => 'Borrower', |
| 37 |
value => { |
| 38 |
debarred => undef, |
| 39 |
dateexpiry => "3000-01-01", |
| 40 |
lost => 0, |
| 41 |
gonenoaddress => 0, |
| 42 |
} |
| 43 |
} |
| 44 |
); |
| 45 |
my $good_patron = $builder->build( |
| 46 |
{ |
| 47 |
source => 'Borrower', |
| 48 |
value => { |
| 49 |
debarred => undef, |
| 50 |
dateexpiry => "3000-01-01", |
| 51 |
lost => 0, |
| 52 |
gonenoaddress => 0, |
| 53 |
} |
| 54 |
} |
| 55 |
); |
| 36 |
my $odue = $builder->build({ source => 'Issue', value => { |
56 |
my $odue = $builder->build({ source => 'Issue', value => { |
| 37 |
borrowernumber => $odue_patron->{borrowernumber}, |
57 |
borrowernumber => $odue_patron->{borrowernumber}, |
| 38 |
date_due => '2017-01-01', |
58 |
date_due => '2017-01-01', |
| 39 |
- |
|
|