Lines 34-39
my $builder = t::lib::TestBuilder->new();
Link Here
|
34 |
|
34 |
|
35 |
$ENV{ DEBUG } = 0; |
35 |
$ENV{ DEBUG } = 0; |
36 |
|
36 |
|
|
|
37 |
my $patron_category = $builder->build({ source => 'Category', value => { categorycode => 'NOT_X', category_type => 'P', enrolmentfee => 0 } }); |
38 |
|
37 |
subtest 'Tests for CanBookBeIssued related to dateexpiry' => sub { |
39 |
subtest 'Tests for CanBookBeIssued related to dateexpiry' => sub { |
38 |
plan tests => 4; |
40 |
plan tests => 4; |
39 |
can_book_be_issued(); |
41 |
can_book_be_issued(); |
Lines 47-53
sub can_book_be_issued {
Link Here
|
47 |
my $item = $builder->build( { source => 'Item' } ); |
49 |
my $item = $builder->build( { source => 'Item' } ); |
48 |
my $patron = $builder->build( |
50 |
my $patron = $builder->build( |
49 |
{ source => 'Borrower', |
51 |
{ source => 'Borrower', |
50 |
value => { dateexpiry => '9999-12-31' } |
52 |
value => { |
|
|
53 |
dateexpiry => '9999-12-31', |
54 |
categorycode => $patron_category->{categorycode}, |
55 |
} |
51 |
} |
56 |
} |
52 |
); |
57 |
); |
53 |
$patron->{flags} = C4::Members::patronflags( $patron ); |
58 |
$patron->{flags} = C4::Members::patronflags( $patron ); |
Lines 60-66
sub can_book_be_issued {
Link Here
|
60 |
$item = $builder->build( { source => 'Item' } ); |
65 |
$item = $builder->build( { source => 'Item' } ); |
61 |
$patron = $builder->build( |
66 |
$patron = $builder->build( |
62 |
{ source => 'Borrower', |
67 |
{ source => 'Borrower', |
63 |
value => { dateexpiry => '0000-00-00' } |
68 |
value => { |
|
|
69 |
dateexpiry => '0000-00-00', |
70 |
categorycode => $patron_category->{categorycode}, |
71 |
} |
64 |
} |
72 |
} |
65 |
); |
73 |
); |
66 |
$patron->{flags} = C4::Members::patronflags( $patron ); |
74 |
$patron->{flags} = C4::Members::patronflags( $patron ); |
Lines 71-77
sub can_book_be_issued {
Link Here
|
71 |
$item = $builder->build( { source => 'Item' } ); |
79 |
$item = $builder->build( { source => 'Item' } ); |
72 |
$patron = $builder->build( |
80 |
$patron = $builder->build( |
73 |
{ source => 'Borrower', |
81 |
{ source => 'Borrower', |
74 |
value => { dateexpiry => output_pref( { dt => $tomorrow, dateonly => 1, dateformat => 'sql' } ) }, |
82 |
value => { |
|
|
83 |
dateexpiry => output_pref( { dt => $tomorrow, dateonly => 1, dateformat => 'sql' } ), |
84 |
categorycode => $patron_category->{categorycode}, |
85 |
}, |
75 |
} |
86 |
} |
76 |
); |
87 |
); |
77 |
$patron->{flags} = C4::Members::patronflags( $patron ); |
88 |
$patron->{flags} = C4::Members::patronflags( $patron ); |
Lines 85-91
sub calc_date_due {
Link Here
|
85 |
|
96 |
|
86 |
# this triggers the compare between expiry and due date |
97 |
# this triggers the compare between expiry and due date |
87 |
|
98 |
|
88 |
my $patron = $builder->build( { source => 'Borrower' } ); |
99 |
my $patron = $builder->build({ |
|
|
100 |
source => 'Borrower', |
101 |
value => { |
102 |
categorycode => $patron_category->{categorycode}, |
103 |
} |
104 |
}); |
89 |
my $item = $builder->build( { source => 'Item' } ); |
105 |
my $item = $builder->build( { source => 'Item' } ); |
90 |
my $branch = $builder->build( { source => 'Branch' } ); |
106 |
my $branch = $builder->build( { source => 'Branch' } ); |
91 |
my $today = dt_from_string(); |
107 |
my $today = dt_from_string(); |
92 |
- |
|
|