|
Lines 125-130
$module->mock( 'userenv', sub { { branch => $branchcode } } );
Link Here
|
| 125 |
|
125 |
|
| 126 |
my $today = dt_from_string; |
126 |
my $today = dt_from_string; |
| 127 |
my $yesterday = dt_from_string->subtract_duration( DateTime::Duration->new( days => 1 ) ); |
127 |
my $yesterday = dt_from_string->subtract_duration( DateTime::Duration->new( days => 1 ) ); |
|
|
128 |
my $tomorrow = dt_from_string->add( DateTime::Duration->new( days => 1 ) ); |
| 128 |
|
129 |
|
| 129 |
subtest 'Issue slip' => sub { |
130 |
subtest 'Issue slip' => sub { |
| 130 |
plan tests => 3; |
131 |
plan tests => 3; |
|
Lines 153-172
EOS
Link Here
|
| 153 |
my $today_daily_as_formatted = output_pref( $today_daily ); |
154 |
my $today_daily_as_formatted = output_pref( $today_daily ); |
| 154 |
my $yesterday_daily = $yesterday->clone->set( hour => 23, minute => 59 ); |
155 |
my $yesterday_daily = $yesterday->clone->set( hour => 23, minute => 59 ); |
| 155 |
my $yesterday_daily_as_formatted = output_pref( $yesterday_daily ); |
156 |
my $yesterday_daily_as_formatted = output_pref( $yesterday_daily ); |
|
|
157 |
my $tomorrow_daily_as_formatted = output_pref( $tomorrow ); |
| 156 |
|
158 |
|
| 157 |
my ( $date_due, $issue_date, $slip, $expected_slip ); |
159 |
my ( $date_due, $issue_date, $slip, $expected_slip ); |
| 158 |
$date_due = $today_daily; |
160 |
$date_due = $tomorrow; |
| 159 |
$issue_date = $today_daily->clone->subtract_duration( DateTime::Duration->new( minutes => 1 ) ); |
161 |
$issue_date = $today_daily->clone->subtract_duration( DateTime::Duration->new( minutes => 1 ) ); |
| 160 |
AddIssue( $borrower, $barcode1, $date_due, undef, $issue_date ); |
162 |
AddIssue( $borrower, $barcode1, $date_due, undef, $issue_date ); |
| 161 |
$date_due = $today_daily; |
163 |
$date_due = $today_daily; |
| 162 |
$issue_date = $yesterday_daily; |
164 |
$issue_date = $yesterday_daily; |
| 163 |
AddIssue( $borrower, $barcode2, $date_due, undef, $issue_date ); |
165 |
AddIssue( $borrower, $barcode2, $date_due, undef, $issue_date ); |
| 164 |
|
166 |
|
| 165 |
# Set timestamps to the same value to avoid a different order |
|
|
| 166 |
Koha::Checkouts->search( |
| 167 |
{ borrowernumber => $borrower->{borrowernumber} } |
| 168 |
)->update( { timestamp => dt_from_string } ); |
| 169 |
|
| 170 |
$expected_slip = <<EOS; |
167 |
$expected_slip = <<EOS; |
| 171 |
Checked out: |
168 |
Checked out: |
| 172 |
|
169 |
|
|
Lines 177-183
Date due: $today_daily_as_formatted
Link Here
|
| 177 |
|
174 |
|
| 178 |
Title: $title1 |
175 |
Title: $title1 |
| 179 |
Barcode: $barcode1 |
176 |
Barcode: $barcode1 |
| 180 |
Date due: $today_daily_as_formatted |
177 |
Date due: $tomorrow_daily_as_formatted |
| 181 |
|
178 |
|
| 182 |
|
179 |
|
| 183 |
Overdues: |
180 |
Overdues: |
|
Lines 235-245
EOS
Link Here
|
| 235 |
$issue_date = $yesterday->clone; |
232 |
$issue_date = $yesterday->clone; |
| 236 |
AddIssue( $borrower, $barcode2, $date_due_in_time, undef, $issue_date ); |
233 |
AddIssue( $borrower, $barcode2, $date_due_in_time, undef, $issue_date ); |
| 237 |
|
234 |
|
| 238 |
# Set timestamps to the same value to avoid a different order |
|
|
| 239 |
Koha::Checkouts->search( |
| 240 |
{ borrowernumber => $borrower->{borrowernumber} } |
| 241 |
)->update( { timestamp => dt_from_string } ); |
| 242 |
|
| 243 |
$expected_slip = <<EOS; |
235 |
$expected_slip = <<EOS; |
| 244 |
Checked out: |
236 |
Checked out: |
| 245 |
|
237 |
|
| 246 |
- |
|
|