use strict;
use warnings;
use utf8;

use Test::More tests => 121;

use DateTime;


if ( $] >= 5.008 )
{
    for my $fh ( Test::Builder->new()->output(),
                 Test::Builder->new()->failure_output(),
                 Test::Builder->new()->todo_output(),
               )
    {
        binmode $fh, ':utf8';
    }
}

{
    my $dt = DateTime->new( year       => 1976,
                            month      => 10,
                            day        => 20,
                            hour       => 18,
                            minute     => 34,
                            second     => 55,
                            nanosecond => 1_000_000,
                            locale     => 'en',
                            time_zone  => 'America/Chicago',
                          );

    my %tests = ( 'GGGGG'  => 'A',
                  'GGGG'   => 'Anno Domini',
                  'GGG'    => 'AD',
                  'GG'     => 'AD',
                  'G'      => 'AD',

                  'yyyyy'  => '01976',
                  'yyyy'   => '1976',
                  'yyy'    => '1976',
                  'yy'     => '76',
                  'y'      => '1976',

                  'uuuuuu' => '001976',
                  'uuuuu'  => '01976',
                  'uuuu'   => '1976',
                  'uuu'    => '1976',
                  'uu'     => '1976',
                  'u'      => '1976',

                  'YYYYY'  => '01976',
                  'YYYY'   => '1976',
                  'YYY'    => '1976',
                  'YY'     => '1976',
                  'Y'      => '1976',

                  'QQQQ'   => '4th quarter',
                  'QQQ'    => 'Q4',
                  'QQ'     => '04',
                  'Q'      => '4',

                  'qqqq'   => '4th quarter',
                  'qqq'    => 'Q4',
                  'qq'     => '04',
                  'q'      => '4',

                  'MMMMM'  => 'O',
                  'MMMM'   => 'October',
                  'MMM'    => 'Oct',
                  'MM'     => '10',
                  'M'      => '10',

                  'LLLLL'  => 'O',
                  'LLLL'   => 'October',
                  'LLL'    => 'Oct',
                  'LL'     => '10',
                  'L'      => '10',

                  'ww'     => '43',
                  'w'      => '43',
                  'W'      => '3',

                  'dd'     => '20',
                  'd'      => '20',

                  'DDD'    => '294',
                  'DD'     => '294',
                  'D'      => '294',

                  'F'      => '3',
                  'gggggg' => '043071',
                  'g'      => '43071',

                  'EEEEE'  => 'W',
                  'EEEE'   => 'Wednesday',
                  'EEE'    => 'Wed',
                  'EE'     => 'Wed',
                  'E'      => 'Wed',

                  'eeeee'  => 'W',
                  'eeee'   => 'Wednesday',
                  'eee'    => 'Wed',
                  'ee'     => '03',
                  'e'      => '3',

                  'ccccc'  => 'W',
                  'cccc'   => 'Wednesday',
                  'ccc'    => 'Wed',
                  'cc'     => '03',
                  'c'      => '3',

                  'a'      => 'PM',

                  'hh'     => '06',
                  'h'      => '6',
                  'HH'     => '18',
                  'H'      => '18',
                  'KK'     => '06',
                  'K'      => '6',
                  'kk'     => '18',
                  'kk'     => '18',
                  'j'      => '6',
                  'jj'     => '06',

                  'mm'     => '34',
                  'm'      => '34',

                  'ss'     => '55',
                  's'      => '55',
                  'SS'     => '00',
                  'SSSSSS' => '001000',
                  'A'      => '66895001',

                  'zzzz'   => 'America/Chicago',
                  'zzz'    => 'CDT',
                  'ZZZZ'   => 'CDT-0500',
                  'ZZZ'    => '-0500',
                  'vvvv'   => 'America/Chicago',
                  'vvv'    => 'CDT',
                  'VVVV'   => 'America/Chicago',
                  'VVV'    => 'CDT',

                  q{'one fine day'} => 'one fine day',
                  q{'yy''yy' yyyy}  => q{yy'yy 1976},

                  q{'yy''yy' 'hello' yyyy}  => q{yy'yy hello 1976},

                  # Non-pattern text should pass through unchanged
                  'd日' => '20日',
                );

    for my $k ( sort keys %tests )
    {
        is( $dt->format_cldr($k), $tests{$k},
            "format_cldr for $k" );
    }
}

{
    my $dt = DateTime->new( year       => 2008,
                            month      => 10,
                            day        => 20,
                            hour       => 18,
                            minute     => 34,
                            second     => 55,
                            nanosecond => 1_000_000,
                            locale     => 'en',
                            time_zone  => 'America/Chicago',
                          );

    is( $dt->format_cldr('yy'), '08',
        'format_cldr for yy in 2008 should be 08' );
}

{
    my $dt = DateTime->new( year       => 2008,
                            month      => 10,
                            day        => 20,
                            hour       => 18,
                            minute     => 34,
                            second     => 55,
                            nanosecond => 1_000_000,
                            locale     => 'en_US',
                            time_zone  => 'America/Chicago',
                          );

    is( $dt->format_cldr('j'), '6',
        'format_cldr for j in en_US should be 6 (at 18:34)' );
}

{
    my $dt = DateTime->new( year       => 2008,
                            month      => 10,
                            day        => 20,
                            hour       => 18,
                            minute     => 34,
                            second     => 55,
                            nanosecond => 1_000_000,
                            locale     => 'fr',
                            time_zone  => 'America/Chicago',
                          );

    is( $dt->format_cldr('j'), '18',
        'format_cldr for j in fr should be 18 (at 18:34)' );
}

{
    my $dt = DateTime->new( year       => 2009,
                            month      => 4,
                            day        => 13,
                            locale     => 'en_US',
                          );

    is( $dt->format_cldr('e'), '2',
        'format_cldr for e in en_US should be 2 (for Monday, 2009-04-13)' );

    is( $dt->format_cldr('c'), '1',
        'format_cldr for c in en_US should be 1 (for Monday, 2009-04-13)' );
}


{
    my $dt = DateTime->new( year       => 2009,
                            month      => 4,
                            day        => 13,
                            locale     => 'fr_FR',
                          );

    is( $dt->format_cldr('e'), '1',
        'format_cldr for e in fr_FR should be 1 (for Monday, 2009-04-13)' );

    is( $dt->format_cldr('c'), '1',
        'format_cldr for c in fr_FR should be 1 (for Monday, 2009-04-13)' );
}

{
    my $dt = DateTime->new( year => -10 );

    my %tests = ( 'y'     => '-10',
                  'yy'    => '-10',
                  'yyy'   => '-10',
                  'yyyy'  => '-010',
                  'yyyyy' => '-0010',

                  'u'     => '-10',
                  'uu'    => '-10',
                  'uuu'   => '-10',
                  'uuuu'  => '-010',
                  'uuuuu' => '-0010',
                );

    for my $k ( sort keys %tests )
    {
        is( $dt->format_cldr($k), $tests{$k},
            "format_cldr for $k" );
    }
}

{
    my $dt = DateTime->new( year => -1976 );

    my %tests = ( 'y'     => '-1976',
                  'yy'    => '-76',
                  'yyy'   => '-1976',
                  'yyyy'  => '-1976',
                  'yyyyy' => '-1976',

                  'u'     => '-1976',
                  'uu'    => '-1976',
                  'uuu'   => '-1976',
                  'uuuu'  => '-1976',
                  'uuuuu' => '-1976',
                );

    for my $k ( sort keys %tests )
    {
        is( $dt->format_cldr($k), $tests{$k},
            "format_cldr for $k" );
    }
}