use strict;
use warnings;
use Test::More;
use Date::Language;

# Tue Sep  7 13:02:42 1999 GMT
# wday=2 (Tuesday), mon=8 (September, 0-indexed)
my $time = 936709362;

# Expected values for %A (full day), %a (short day), %B (full month), %b (short month)
# extracted from each language module's @DoW[2], @DoWs[2], @MoY[8], @MoYs[8]
my %expected = (
    Afar                 => { A => "Talaata",                                                              a => "Tal",                                        B => "Waysu",                                                                    b => "Way" },
    Amharic              => { A => "\x{121b}\x{12ad}\x{1230}\x{129e}",                                    a => "\x{121b}\x{12ad}\x{1230}",                   B => "\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}",                        b => "\x{1234}\x{1355}\x{1274}" },
    Arabic               => { A => "\x{627}\x{644}\x{62b}\x{644}\x{627}\x{62b}\x{627}\x{621}",           a => "\x{627}\x{644}\x{62b}",                      B => "\x{633}\x{628}\x{62a}\x{645}\x{628}\x{631}",                              b => "\x{633}\x{628}\x{62a}" },
    Austrian             => { A => "Dienstag",                                                             a => "Di",                                         B => "September",                                                                b => "Sep" },
    Brazilian            => { A => "Ter\x{e7}a",                                                           a => "Ter",                                        B => "Setembro",                                                                 b => "Set" },
    Bulgarian            => { A => "\x{432}\x{442}\x{43e}\x{440}\x{43d}\x{438}\x{43a}",                  a => "\x{432}\x{442}",                             B => "\x{441}\x{435}\x{43f}\x{442}\x{435}\x{43c}\x{432}\x{440}\x{438}",        b => "\x{441}\x{435}\x{43f}" },
    Chinese              => { A => "\x{661f}\x{671f}\x{4e8c}",                                            a => "\x{661f}\x{671f}\x{4e8c}",                  B => "\x{4e5d}\x{6708}",                                                        b => "\x{4e5d}\x{6708}" },
    Chinese_GB           => { A => "\x{d0}\x{c7}\x{c6}\x{da}\x{b6}\x{fe}",                               a => "\x{d0}\x{c7}\x{c6}\x{da}\x{b6}\x{fe}",     B => "\x{be}\x{c5}\x{d4}\x{c2}",                                                b => "\x{be}\x{c5}\x{d4}\x{c2}" },
    Czech                => { A => "\x{fa}ter\x{fd}",                                                     a => "\x{da}t",                                    B => "z\x{e1}\x{f8}\x{ed}",                                                     b => "z\x{e1}\x{f8}\x{ed}" },
    Danish               => { A => "Tirsdag",                                                              a => "Tir",                                        B => "September",                                                                b => "Sep" },
    Dutch                => { A => "dinsdag",                                                              a => "di",                                         B => "september",                                                                b => "sep" },
    English              => { A => "Tuesday",                                                              a => "Tue",                                        B => "September",                                                                b => "Sep" },
    Finnish              => { A => "tiistai",                                                              a => "tiistai",                                    B => "syyskuu",                                                                  b => "syyskuu" },
    French               => { A => "mardi",                                                                a => "mar",                                        B => "septembre",                                                                b => "sep" },
    Gedeo                => { A => "Masano",                                                               a => "Mas",                                        B => "Canissa",                                                                  b => "Can" },
    German               => { A => "Dienstag",                                                             a => "Di",                                         B => "September",                                                                b => "Sep" },
    Greek                => { A => "\x{3a4}\x{3c1}\x{3af}\x{3c4}\x{3b7}",                                a => "\x{3a4}\x{3c1}",                             B => "\x{3a3}\x{3b5}\x{3c0}\x{3c4}\x{3b5}\x{3bc}\x{3c4}\x{3bf}\x{3c5}",       b => "\x{3a3}\x{3b5}\x{3c0}" },
    Hungarian            => { A => "Kedd",                                                                 a => "Ked",                                        B => "Szeptember",                                                               b => "Sze" },
    Icelandic            => { A => "\x{de}ri\x{f0}judagur",                                               a => "\x{de}ri",                                   B => "September",                                                                b => "Sep" },
    Italian              => { A => "Martedi",                                                              a => "Mar",                                        B => "Settembre",                                                                b => "Set" },
    Norwegian            => { A => "Tirsdag",                                                              a => "Tir",                                        B => "September",                                                                b => "Sep" },
    Occitan              => { A => "dimars",                                                               a => "dim",                                        B => "setembre",                                                                 b => "set" },
    Portuguese           => { A => "ter\x{e7}a-feira",                                                    a => "ter",                                        B => "setembro",                                                                 b => "set" },
    Oromo                => { A => "Qibxata",                                                              a => "Qib",                                        B => "Fuulbana",                                                                 b => "Fuu" },
    Romanian             => { A => "marti",                                                                a => "mar",                                        B => "septembrie",                                                               b => "sep" },
    Russian              => { A => "\x{f3}\x{d2}\x{c5}\x{c4}\x{c1}",                                     a => "\x{f3}\x{d2}",                               B => "\x{f3}\x{c5}\x{ce}\x{d4}\x{d1}\x{c2}\x{d2}\x{d1}",                       b => "\x{f3}\x{c5}\x{ce}" },
    Russian_cp1251       => { A => "\x{c2}\x{f2}\x{ee}\x{f0}\x{ed}\x{e8}\x{ea}",                               a => "\x{c2}\x{f2}\x{f0}",                    B => "\x{d1}\x{e5}\x{ed}\x{f2}\x{ff}\x{e1}\x{f0}\x{fc}",                       b => "\x{d1}\x{e5}\x{ed}" },
    Russian_koi8r        => { A => "\x{f7}\x{d4}\x{cf}\x{d2}\x{ce}\x{c9}\x{cb}",                         a => "\x{f7}\x{d4}\x{d2}",                         B => "\x{f3}\x{c5}\x{ce}\x{d4}\x{d1}\x{c2}\x{d2}\x{d8}",                       b => "\x{f3}\x{c5}\x{ce}" },
    Sidama               => { A => "Maakisanyo",                                                           a => "Maa",                                        B => "September",                                                                b => "Sep" },
    Somali               => { A => "Salaaso",                                                              a => "Sal",                                        B => "Bisha Sagaalaad",                                                          b => "Sag" },
    Spanish              => { A => "martes",                                                               a => "mar",                                        B => "septiembre",                                                               b => "sep" },
    Swedish              => { A => "tisdagen",                                                             a => "ti",                                         B => "september",                                                                b => "sep" },
    Tigrinya             => { A => "\x{1230}\x{1209}\x{1235}",                                            a => "\x{1230}\x{1209}\x{1235}",                   B => "\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}",                        b => "\x{1234}\x{1355}\x{1274}" },
    TigrinyaEritrean     => { A => "\x{1230}\x{1209}\x{1235}",                                            a => "\x{1230}\x{1209}\x{1235}",                   B => "\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}",                        b => "\x{1234}\x{1355}\x{1274}" },
    TigrinyaEthiopian    => { A => "\x{1230}\x{1209}\x{1235}",                                            a => "\x{1230}\x{1209}\x{1235}",                   B => "\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}",                        b => "\x{1234}\x{1355}\x{1274}" },
    Turkish              => { A => "Sal\x{131}",                                                           a => "Sal",                                        B => "Eyl\x{fc}l",                                                              b => "Eyl" },
);

for my $lang (sort keys %expected) {
    my $l = Date::Language->new($lang);
    my $e = $expected{$lang};

    # Content checks
    is($l->time2str('%A', $time, 'GMT'), $e->{A}, "$lang: full day name (%A)");
    is($l->time2str('%a', $time, 'GMT'), $e->{a}, "$lang: short day name (%a)");
    is($l->time2str('%B', $time, 'GMT'), $e->{B}, "$lang: full month name (%B)");
    is($l->time2str('%b', $time, 'GMT'), $e->{b}, "$lang: short month name (%b)");

    # Structural checks
    no strict 'refs';
    my $pkg = "Date::Language::$lang";

    is(scalar @{"${pkg}::DoW"},  7,  "$lang: 7 day names");
    is(scalar @{"${pkg}::DoWs"}, 7,  "$lang: 7 short day names");
    is(scalar @{"${pkg}::MoY"},  12, "$lang: 12 month names");
    is(scalar @{"${pkg}::MoYs"}, 12, "$lang: 12 short month names");
    is(scalar @{"${pkg}::AMPM"}, 2,  "$lang: 2 AM/PM entries");
}

done_testing;