#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;

zci answer_type => 'weekdays_between';
zci is_cached   => 0;

my @six_to_ten = (
    "There are 5 Weekdays between 06 Jan 2014 and 10 Jan 2014.",
    structured_answer => {
        input     => ['06 Jan 2014', '10 Jan 2014'],
        operation => 'Weekdays between',
        result    => 5,
    });

ddg_goodie_test(
    ['DDG::Goodie::WeekdaysBetween'],

    # Primary query example
    'Weekdays between 01/31/2000 01/31/2001' => test_zci(
        "There are 263 Weekdays between 31 Jan 2000 and 31 Jan 2001.",
        structured_answer => {
            input     => ['31 Jan 2000', '31 Jan 2001'],
            operation => 'Weekdays between',
            result    => 263,
        }
    ),

    # Test different trigger words
    'week days between 01/06/2014 01/10/2014' => test_zci(@six_to_ten),
    'week days from 01/06/2014 01/10/2014'    => test_zci(@six_to_ten),
    'Weekdays from 01/06/2014 01/10/2014'     => test_zci(@six_to_ten),

    # Standard work week
    'Weekdays between 01/06/2014 01/10/2014' => test_zci(@six_to_ten),

    # Ending date first
    'Weekdays between 01/10/2014 01/06/2014' => test_zci(@six_to_ten),

    # Including the weekend -- Backwards
    'Weekdays between 01/13/2014 01/06/2014' => test_zci(
        "There are 6 Weekdays between 06 Jan 2014 and 13 Jan 2014.",
        structured_answer => {
            input     => ['06 Jan 2014', '13 Jan 2014'],
            operation => 'Weekdays between',
            result    => 6,
        }
    ),

    # Weekdays in a year - Dash format
    'Weekdays between 01-01-2014 01-01-2015' => test_zci(
        "There are 262 Weekdays between 01 Jan 2014 and 01 Jan 2015.",
        structured_answer => {
            input     => ['01 Jan 2014', '01 Jan 2015'],
            operation => 'Weekdays between',
            result    => 262,
        }
    ),

    # Single digit days and months - Dash format
    'Weekdays between 1-6-2014 1-10-2014' => test_zci(@six_to_ten),

    # Unambiguous date format
    'Weekdays between jan 6 2014 jan 10 2014' => test_zci(@six_to_ten),

    # Unambiguous date format with comma separator
    'Weekdays between jan 6, 2014 jan 10, 2014' => test_zci(@six_to_ten),

    # Weekend in the middle
    'Weekdays between jan 3, 2014 jan 6, 2014' => test_zci(
        "There are 2 Weekdays between 03 Jan 2014 and 06 Jan 2014.",
        structured_answer => {
            input     => ['03 Jan 2014', '06 Jan 2014'],
            operation => 'Weekdays between',
            result    => 2,
        }
    ),

    # Same day
    'Weekdays between jan 3, 2014 jan 3, 2014' => test_zci(
        "There is 1 Weekday between 03 Jan 2014 and 03 Jan 2014.",
        structured_answer => {
            input     => ['03 Jan 2014', '03 Jan 2014'],
            operation => 'Weekday between',
            result    => 1,
        }
    ),

    # Same day on a weekend
    'Weekdays between jan 4, 2014 jan 4, 2014' => test_zci(
        "There are 0 Weekdays between 04 Jan 2014 and 04 Jan 2014.",
        structured_answer => {
            input     => ['04 Jan 2014', '04 Jan 2014'],
            operation => 'Weekdays between',
            result    => 0,
        }
    ),

    # Starting on a Saturday
    'Weekdays between 01/11/2014 01/14/2014' => test_zci(
        "There are 2 Weekdays between 11 Jan 2014 and 14 Jan 2014.",
        structured_answer => {
            input     => ['11 Jan 2014', '14 Jan 2014'],
            operation => 'Weekdays between',
            result    => 2,
        }
    ),

    # Starting on a Sunday
    'Weekdays between 01/12/2014 01/17/2014' => test_zci(
        "There are 5 Weekdays between 12 Jan 2014 and 17 Jan 2014.",
        structured_answer => {
            input     => ['12 Jan 2014', '17 Jan 2014'],
            operation => 'Weekdays between',
            result    => 5,
        }
    ),

    # Invalid input
    'Weekdays between 01/2013 and 01/2014'                 => undef,
    'Weekdays between feb 30, 2014 to mar 3, 2014'         => undef,
    'Weekdays between 01/01/2012'                          => undef,
    'Weekdays between 18/17/2013 21/23/2015'               => undef,
    'Weekdays between 01/2013 and 01/2014 inclusive'       => undef,
    'Weekdays between feb 30, 2014 mar 3, 2014 inclusive'  => undef,
    'Weekdays between 01/01/2012 to'                       => undef,
    'Weekdays between 18/17/2013 and 21/23/2015 inclusive' => undef,
);

done_testing;