use strict;
use Test::More;

BEGIN { plan tests => 5 }

use lib qw(..);
use Data::Random qw( rand_date );

# Try to load Date::Calc 
eval q{ use Date::Calc };

SKIP: {

    # If the module cannot be loaded, skip tests
    skip('Date::Calc not installed', 5) if $@;

    # Get today's date
    my ( $year, $month, $day ) = Date::Calc::Today();

    # Test default w/ no params -- should return a date between today and 1 year from now
    {
        my $pass = 1;

        my $max_days =
          Date::Calc::Delta_Days( $year, $month, $day,
            Date::Calc::Add_Delta_YMD( $year, $month, $day, 1, 0, 0 ) );

        my $i = 0;
        while ( $pass && $i < $max_days ) {
            my $date = rand_date();

            my $delta =
              Date::Calc::Delta_Days( $year, $month, $day, split ( /\-/, $date ) );

            $pass = 0 unless $delta >= 0 && $delta <= $max_days;

            $i++;
        }

        ok($pass);
    }

    # Test min option
    {
        my $pass = 1;

        my $max_days = Date::Calc::Delta_Days( 1978, 9, 21, 1979, 9, 21 );

        my $i = 0;
        while ( $pass && $i < $max_days ) {
            my $date = rand_date( min => '1978-9-21' );

            my $delta =
              Date::Calc::Delta_Days( 1978, 9, 21, split ( /\-/, $date ) );

            $pass = 0 unless $delta >= 0 && $delta <= $max_days;

            $i++;
        }

        ok($pass);
    }

    # Test max option
    {
        my $pass = 1;

        my $max_days =
          Date::Calc::Delta_Days( $year, $month, $day,
            Date::Calc::Add_Delta_YMD( $year, $month, $day, 1, 0, 0 ) );

        my $i = 0;
        while ( $pass && $i < $max_days ) {
            my $date =
              rand_date( max =>
                join ( '-',
                    Date::Calc::Add_Delta_YMD( $year, $month, $day, 1, 0, 0 ) ) );

            my $delta =
              Date::Calc::Delta_Days( $year, $month, $day, split ( /\-/, $date ) );

            $pass = 0 unless $delta >= 0 && $delta <= $max_days;

            $i++;
        }

        ok($pass);
    }

    # Test min + max options
    {
        my $pass = 1;

        my $max_days =
          Date::Calc::Delta_Days( $year, $month, $day,
            Date::Calc::Add_Delta_YMD( $year, $month, $day, 1, 0, 0 ) );

        my $i = 0;
        while ( $pass && $i < $max_days ) {
            my $date = rand_date(
                min => "$year-$month-$day",
                max =>
                join ( '-',
                    Date::Calc::Add_Delta_YMD( $year, $month, $day, 1, 0, 0 ) )
            );

            my $delta =
              Date::Calc::Delta_Days( $year, $month, $day, split ( /\-/, $date ) );

            $pass = 0 unless $delta >= 0 && $delta <= $max_days;

            $i++;
        }

        ok($pass);
    }

    # Test min + max options using "now"
    {
        my $pass = 1;

        my $date = rand_date( min => 'now', max => 'now' );

        my ( $new_year, $new_month, $new_day ) = split ( /\-/, $date );

        $pass = 0
          unless $new_year == $year && $new_month == $month && $new_day == $day;

        ok($pass);
    }
}