190 lines
8.7 KiB
Perl
Executable File
190 lines
8.7 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => 'workdays_between';
|
|
|
|
ddg_goodie_test(
|
|
[
|
|
'DDG::Goodie::WorkdaysBetween'
|
|
],
|
|
|
|
# Standard work week
|
|
'workdays between 01/06/2014 01/10/2014' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
'workdays between 01/06/2014 01/10/2014 inclusive' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
|
|
# Ending date first
|
|
'workdays between 01/10/2014 01/06/2014' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
'workdays between 01/10/2014 01/06/2014 inclusive' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
|
|
# Ending date on a weekend
|
|
'workdays between 01/06/2014 01/12/2014' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 12 Jan 2014."),
|
|
'workdays between 01/06/2014 01/12/2014 inclusive' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 12 Jan 2014."),
|
|
|
|
# Including the weekend
|
|
'workdays between 01/06/2014 01/13/2014' =>
|
|
test_zci("There are 6 workdays between 06 Jan 2014 and 13 Jan 2014."),
|
|
'workdays between 01/06/2014 01/13/2014 inclusive' =>
|
|
test_zci("There are 6 workdays between 06 Jan 2014 and 13 Jan 2014."),
|
|
|
|
# Including the weekend -- Backwards
|
|
'workdays between 01/13/2014 01/06/2014' =>
|
|
test_zci("There are 6 workdays between 06 Jan 2014 and 13 Jan 2014."),
|
|
'workdays between 01/13/2014 01/06/2014 inclusive' =>
|
|
test_zci("There are 6 workdays between 06 Jan 2014 and 13 Jan 2014."),
|
|
|
|
# Starting on a Saturday
|
|
'workdays between 01/11/2014 01/14/2014' =>
|
|
test_zci("There are 2 workdays between 11 Jan 2014 and 14 Jan 2014."),
|
|
'workdays between 01/11/2014 01/14/2014 inclusive' =>
|
|
test_zci("There are 2 workdays between 11 Jan 2014 and 14 Jan 2014."),
|
|
|
|
# Starting on a Sunday
|
|
'workdays between 01/12/2014 01/14/2014' =>
|
|
test_zci("There are 2 workdays between 12 Jan 2014 and 14 Jan 2014."),
|
|
'workdays between 01/12/2014 01/14/2014 inclusive' =>
|
|
test_zci("There are 2 workdays between 12 Jan 2014 and 14 Jan 2014."),
|
|
|
|
# Workdays in a year
|
|
'workdays between 01/01/2014 01/01/2015' =>
|
|
test_zci("There are 251 workdays between 01 Jan 2014 and 01 Jan 2015."),
|
|
'workdays between 01/01/2014 01/01/2015 inclusive' =>
|
|
test_zci("There are 251 workdays between 01 Jan 2014 and 01 Jan 2015."),
|
|
|
|
# Business Days
|
|
'business days between 01/06/2014 01/10/2014' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
'business days between 01/06/2014 01/10/2014 inclusive' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
|
|
# Month and Date are backwards
|
|
'workdays between 16/06/2014 20/06/2014' =>
|
|
test_zci("There are 5 workdays between 16 Jun 2014 and 20 Jun 2014."),
|
|
'workdays between 5/06/2014 20/06/2014' =>
|
|
test_zci("There are 12 workdays between 05 Jun 2014 and 20 Jun 2014."),
|
|
'workdays between 20/06/2014 5/06/2014' =>
|
|
test_zci("There are 12 workdays between 05 Jun 2014 and 20 Jun 2014."),
|
|
|
|
# Single digit days and months
|
|
'workdays between 1/6/2014 1/10/2014' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
'workdays between 1/6/2014 1/10/2014 inclusive' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
|
|
# Workdays in a year - Dash format
|
|
'workdays between 01-01-2014 01-01-2015' =>
|
|
test_zci("There are 251 workdays between 01 Jan 2014 and 01 Jan 2015."),
|
|
'workdays between 01-01-2014 01-01-2015 inclusive' =>
|
|
test_zci("There are 251 workdays between 01 Jan 2014 and 01 Jan 2015."),
|
|
|
|
# Business Days - Dash format
|
|
'business days between 01-06-2014 01-10-2014' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
'business days between 01-06-2014 01-10-2014 inclusive' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
|
|
# Month and Date are backwards - Dash format
|
|
'workdays between 16-06-2014 20-06-2014' =>
|
|
test_zci("There are 5 workdays between 16 Jun 2014 and 20 Jun 2014."),
|
|
'workdays between 5-06-2014 20-06-2014' =>
|
|
test_zci("There are 12 workdays between 05 Jun 2014 and 20 Jun 2014."),
|
|
'workdays between 20-06-2014 5-06-2014' =>
|
|
test_zci("There are 12 workdays between 05 Jun 2014 and 20 Jun 2014."),
|
|
|
|
# Single digit days and months - Dash format
|
|
'workdays between 1-6-2014 1-10-2014' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
'workdays between 1-6-2014 1-10-2014 inclusive' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
|
|
# Unambiguous date format
|
|
'workdays between jan 6 2014 jan 10 2014' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
'workdays between jan 6 2014 jan 10 2014 inclusive' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
|
|
# Unambiguous date format with comma separator
|
|
'workdays between jan 6, 2014 jan 10, 2014' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
'workdays between jan 6, 2014 jan 10, 2014 inclusive' =>
|
|
test_zci("There are 5 workdays between 06 Jan 2014 and 10 Jan 2014."),
|
|
|
|
# Same day
|
|
'workdays between jan 3, 2014 jan 3, 2014' =>
|
|
test_zci("There is 1 workday between 03 Jan 2014 and 03 Jan 2014."),
|
|
'workdays between jan 3, 2014 jan 3, 2014 inclusive' =>
|
|
test_zci("There is 1 workday between 03 Jan 2014 and 03 Jan 2014."),
|
|
|
|
# Same day on a weekend
|
|
'workdays between jan 4, 2014 jan 4, 2014' =>
|
|
test_zci("There are 0 workdays between 04 Jan 2014 and 04 Jan 2014."),
|
|
'workdays between jan 4, 2014 jan 5, 2014 inclusive' =>
|
|
test_zci("There are 0 workdays between 04 Jan 2014 and 05 Jan 2014."),
|
|
|
|
# Weekend in the middle
|
|
'workdays between jan 3, 2014 jan 6, 2014' =>
|
|
test_zci("There are 2 workdays between 03 Jan 2014 and 06 Jan 2014."),
|
|
'workdays between jan 3, 2014 jan 6, 2014 inclusive' =>
|
|
test_zci("There are 2 workdays between 03 Jan 2014 and 06 Jan 2014."),
|
|
|
|
# "to"
|
|
'workdays between jan 3, 2014 to jan 6, 2014' =>
|
|
test_zci("There are 2 workdays between 03 Jan 2014 and 06 Jan 2014."),
|
|
'workdays between jan 3, 2014 to jan 6, 2014 inclusive' =>
|
|
test_zci("There are 2 workdays between 03 Jan 2014 and 06 Jan 2014."),
|
|
|
|
# # Same day on a weekend - shortened year
|
|
# 'workdays between jan 4, 14 jan 4, 2014' =>
|
|
# test_zci("There are 0 workdays between 04 Jan 2014 and 04 Jan 2014."),
|
|
# 'workdays between jan 4, 2014 jan 5, 14 inclusive' =>
|
|
# test_zci("There are 0 workdays between 04 Jan 2014 and 05 Jan 2014."),
|
|
|
|
# # Weekend in the middle - shortened year
|
|
# 'workdays between jan 3, 14 jan 6, 14' =>
|
|
# test_zci("There are 2 workdays between 03 Jan 2014 and 06 Jan 2014."),
|
|
# 'workdays between jan 3, 14 jan 6, 14 inclusive' =>
|
|
# test_zci("There are 2 workdays between 03 Jan 2014 and 06 Jan 2014."),
|
|
|
|
# # "to" - shortened year
|
|
# 'workdays between jan 3, 14 to jan 6, 2014' =>
|
|
# test_zci("There are 2 workdays between 03 Jan 2014 and 06 Jan 2014."),
|
|
# 'workdays between jan 3, 14 to jan 6, 2014 inclusive' =>
|
|
# test_zci("There are 2 workdays between 03 Jan 2014 and 06 Jan 2014."),
|
|
|
|
'business days between jan 10 and jan 20' =>
|
|
test_zci(qr"There are [1-9] workdays between 10 Jan [0-9]{4} and 20 Jan [0-9]{4}\."),
|
|
|
|
'business days between january and february' =>
|
|
test_zci(qr"There are [1-9][0-9] workdays between 01 Jan [0-9]{4} and 01 Feb [0-9]{4}\."),
|
|
|
|
# Invalid input
|
|
'workdays between 01/2014 01/2015' => undef,
|
|
'workdays between 01/2014/01' => undef,
|
|
'workdays between 01/01/2014 inclusive' => undef,
|
|
'workdays between 01/01/2014' => undef,
|
|
'workdays between 20/01/2014 inclusive' => undef,
|
|
'workdays between 19/19/2014 20/24/2015' => undef,
|
|
'workdays between 19/19/2014 20/24/2015 inclusive' => undef,
|
|
'workdays from FEB 30 2014 to March 24 2014' => undef,
|
|
|
|
'workdays between 01/31/2000 01/31/2001' =>
|
|
test_zci("There are 253 workdays between 31 Jan 2000 and 31 Jan 2001."),
|
|
'workdays between 01/31/2000 01/31/2001 inclusive' =>
|
|
test_zci("There are 253 workdays between 31 Jan 2000 and 31 Jan 2001."),
|
|
'workdays between 01/31/2000 and 01/31/2001 inclusive' =>
|
|
test_zci("There are 253 workdays between 31 Jan 2000 and 31 Jan 2001."),
|
|
'workdays between jan 3 2013 and jan 4 2013' =>
|
|
test_zci("There are 2 workdays between 03 Jan 2013 and 04 Jan 2013."),
|
|
);
|
|
|
|
done_testing;
|