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 |
- |
|
|