Lines 126-131
EOS
Link Here
|
126 |
|
126 |
|
127 |
subtest 'Daily loans' => sub { |
127 |
subtest 'Daily loans' => sub { |
128 |
plan tests => 2; |
128 |
plan tests => 2; |
|
|
129 |
skip "It's 23:59!", 2 if $today->hour == 23 and $today->minute == 59; |
129 |
# Test 1: No overdue |
130 |
# Test 1: No overdue |
130 |
my $today_daily = $today->clone->set( hour => 23, minute => 59 ); |
131 |
my $today_daily = $today->clone->set( hour => 23, minute => 59 ); |
131 |
my $today_daily_as_formatted = output_pref( $today_daily ); |
132 |
my $today_daily_as_formatted = output_pref( $today_daily ); |
Lines 194-205
EOS
Link Here
|
194 |
|
195 |
|
195 |
subtest 'Hourly loans' => sub { |
196 |
subtest 'Hourly loans' => sub { |
196 |
plan tests => 2; |
197 |
plan tests => 2; |
|
|
198 |
skip "It's 23:59!", 2 if $today->hour == 23 and $today->minute == 59; |
197 |
# Test 1: No overdue |
199 |
# Test 1: No overdue |
198 |
my ( $date_due_in_time, $date_due_in_time_as_formatted, $date_due_in_late, $date_due_in_late_as_formatted, $issue_date, $slip, $expected_slip ); |
200 |
my ( $date_due_in_time, $date_due_in_time_as_formatted, $date_due_in_late, $date_due_in_late_as_formatted, $issue_date, $slip, $expected_slip ); |
199 |
# Assuming today is not hour = 23 and minute = 59 |
201 |
# Assuming today is not hour = 23 and minute = 59 |
200 |
$date_due_in_time = $today->clone->set(hour => $today->hour + 1); |
202 |
$date_due_in_time = $today->clone->set(hour => ($today->hour < 23 ? $today->hour + 1 : 23), minute => 59); |
201 |
$date_due_in_time_as_formatted = output_pref( $date_due_in_time ); |
203 |
$date_due_in_time_as_formatted = output_pref( $date_due_in_time ); |
202 |
$issue_date = $today->clone->subtract_duration( DateTime::Duration->new( minutes => 1 ) ); |
204 |
$issue_date = $date_due_in_time->clone->subtract_duration( DateTime::Duration->new( minutes => 1 ) ); |
203 |
AddIssue( $borrower, $barcode1, $date_due_in_time, undef, $issue_date ); |
205 |
AddIssue( $borrower, $barcode1, $date_due_in_time, undef, $issue_date ); |
204 |
$issue_date = $yesterday->clone; |
206 |
$issue_date = $yesterday->clone; |
205 |
AddIssue( $borrower, $barcode2, $date_due_in_time, undef, $issue_date ); |
207 |
AddIssue( $borrower, $barcode2, $date_due_in_time, undef, $issue_date ); |
Lines 227-235
EOS
Link Here
|
227 |
AddReturn( $barcode2, $branchcode ); |
229 |
AddReturn( $barcode2, $branchcode ); |
228 |
|
230 |
|
229 |
# Test 2: 1 Overdue |
231 |
# Test 2: 1 Overdue |
230 |
$date_due_in_time = $today->clone->set(hour => $today->hour + 1); |
232 |
$date_due_in_time = $today->clone->set(hour => ($today->hour < 23 ? $today->hour + 1 : 23), minute => 59); |
231 |
$date_due_in_time_as_formatted = output_pref( $date_due_in_time ); |
233 |
$date_due_in_time_as_formatted = output_pref( $date_due_in_time ); |
232 |
$issue_date = $today->clone->subtract_duration( DateTime::Duration->new( minutes => 1 ) ); |
234 |
$issue_date = $date_due_in_time->clone->subtract_duration( DateTime::Duration->new( minutes => 1 ) ); |
233 |
AddIssue( $borrower, $barcode1, $date_due_in_time, undef, $issue_date ); |
235 |
AddIssue( $borrower, $barcode1, $date_due_in_time, undef, $issue_date ); |
234 |
$date_due_in_late = $today->clone->set(hour => $today->hour - 1); |
236 |
$date_due_in_late = $today->clone->set(hour => $today->hour - 1); |
235 |
$date_due_in_late_as_formatted = output_pref( $date_due_in_late ); |
237 |
$date_due_in_late_as_formatted = output_pref( $date_due_in_late ); |
Lines 275-280
EOS
Link Here
|
275 |
|
277 |
|
276 |
subtest 'Daily loans' => sub { |
278 |
subtest 'Daily loans' => sub { |
277 |
plan tests => 2; |
279 |
plan tests => 2; |
|
|
280 |
skip "It's 23:59!", 2 if $today->hour == 23 and $today->minute == 59; |
278 |
# Test 1: No overdue |
281 |
# Test 1: No overdue |
279 |
my $today_daily = $today->clone->set( hour => 23, minute => 59 ); |
282 |
my $today_daily = $today->clone->set( hour => 23, minute => 59 ); |
280 |
my $today_daily_as_formatted = output_pref( $today_daily ); |
283 |
my $today_daily_as_formatted = output_pref( $today_daily ); |
Lines 328-336
EOS
Link Here
|
328 |
# Test 1: No overdue |
331 |
# Test 1: No overdue |
329 |
my ( $date_due_in_time, $date_due_in_time_as_formatted, $date_due_in_late, $date_due_in_late_as_formatted, $issue_date, $slip, $expected_slip ); |
332 |
my ( $date_due_in_time, $date_due_in_time_as_formatted, $date_due_in_late, $date_due_in_late_as_formatted, $issue_date, $slip, $expected_slip ); |
330 |
# Assuming today is not hour = 23 and minute = 59 |
333 |
# Assuming today is not hour = 23 and minute = 59 |
331 |
$date_due_in_time = $today->clone->set(hour => $today->hour + 1); |
334 |
$date_due_in_time = $today->clone->set(hour => ($today->hour < 23 ? $today->hour + 1 : 23), minute => 59); |
332 |
$date_due_in_time_as_formatted = output_pref( $date_due_in_time ); |
335 |
$date_due_in_time_as_formatted = output_pref( $date_due_in_time ); |
333 |
$issue_date = $today->clone->subtract_duration( DateTime::Duration->new( minutes => 1 ) ); |
336 |
$issue_date = $date_due_in_time->clone->subtract_duration( DateTime::Duration->new( minutes => 1 ) ); |
334 |
AddIssue( $borrower, $barcode1, $date_due_in_time, undef, $issue_date ); |
337 |
AddIssue( $borrower, $barcode1, $date_due_in_time, undef, $issue_date ); |
335 |
$issue_date = $yesterday->clone; |
338 |
$issue_date = $yesterday->clone; |
336 |
AddIssue( $borrower, $barcode2, $date_due_in_time, undef, $issue_date ); |
339 |
AddIssue( $borrower, $barcode2, $date_due_in_time, undef, $issue_date ); |
Lines 350-358
EOS
Link Here
|
350 |
AddReturn( $barcode2, $branchcode ); |
353 |
AddReturn( $barcode2, $branchcode ); |
351 |
|
354 |
|
352 |
# Test 2: 1 Overdue |
355 |
# Test 2: 1 Overdue |
353 |
$date_due_in_time = $today->clone->set(hour => $today->hour + 1); |
356 |
$date_due_in_time = $today->clone->set(hour => ($today->hour < 23 ? $today->hour + 1 : 23), minute => 59); |
354 |
$date_due_in_time_as_formatted = output_pref( $date_due_in_time ); |
357 |
$date_due_in_time_as_formatted = output_pref( $date_due_in_time ); |
355 |
$issue_date = $today->clone->subtract_duration( DateTime::Duration->new( minutes => 1 ) ); |
358 |
$issue_date = $date_due_in_time->clone->subtract_duration( DateTime::Duration->new( minutes => 1 ) ); |
356 |
AddIssue( $borrower, $barcode1, $date_due_in_time, undef, $issue_date ); |
359 |
AddIssue( $borrower, $barcode1, $date_due_in_time, undef, $issue_date ); |
357 |
$date_due_in_late = $today->clone->set(hour => $today->hour - 1); |
360 |
$date_due_in_late = $today->clone->set(hour => $today->hour - 1); |
358 |
$date_due_in_late_as_formatted = output_pref( $date_due_in_late ); |
361 |
$date_due_in_late_as_formatted = output_pref( $date_due_in_late ); |
359 |
- |
|
|