#!/usr/bin/perl -w

use strict;

use Test::More tests => 7;

BEGIN 
{
  use_ok('Rose::DateTime::Util');
  use_ok('DateTime');
}

Rose::DateTime::Util->import('parse_date');

Rose::DateTime::Util->european_dates(undef); # re-init

my $d = parse_date('03-05-2003');
is($d->month, 3, 'locale 1');

DateTime->DefaultLocale('de');

$d = parse_date('03-05-2003');
is($d->month, 3, 'locale 2');

Rose::DateTime::Util->european_dates(undef); # re-init

$d = parse_date('03-05-2003');
is($d->month, 5, 'locale 3');

is(Rose::DateTime::Util->european_dates, 1, 'european_dates check');

DateTime->DefaultLocale('en_US');
Rose::DateTime::Util->european_dates(undef); # re-init

$d = parse_date('03-05-2003');
is($d->month, 3, 'locale 4');