view release on metacpan or  search on metacpan

t/lang-de.t  view on Meta::CPAN

use Test::More tests => 18;
use DateTime;

use t::lib::helper;

use DateTime::Format::Flexible;

my $curr_year = DateTime->now->year;

# http://www.dummies.com/how-to/content/mastering-the-calendar-and-dates-in-german.html
# http://german.about.com/library/anfang/blanfang12b.htm
t::lib::helper::run_tests(
    [ european => 1 ],
    "20. Feb am Mittag => $curr_year-02-20T12:00:00",
    "20. Feb um Mitternacht => $curr_year-02-20T00:00:00",
    'Montag, 6. Dez 2010 => 2010-12-06T00:00:00',
    "am vierzehnten Juni => $curr_year-06-14T00:00:00",
    'am 14. Juni 2001 => 2001-06-14T00:00:00',
    '1. Januar 2000 => 2000-01-01T00:00:00',
    '10. Juni 1999 => 1999-06-10T00:00:00',