1#!/usr/bin/perl -w
2
3use strict;
4
5use Test::More tests => 8;
6
7use DateTime;
8use DateTime::Locale;
9
10eval { DateTime->new( year => 100, locale => 'en_US' ) };
11is( $@, '', 'make sure constructor accepts locale parameter' );
12
13eval { DateTime->now( locale => 'en_US' ) };
14is( $@, '', 'make sure constructor accepts locale parameter' );
15
16eval { DateTime->today( locale => 'en_US' ) };
17is( $@, '', 'make sure constructor accepts locale parameter' );
18
19eval { DateTime->from_epoch( epoch => 1, locale => 'en_US' ) };
20is( $@, '', 'make sure constructor accepts locale parameter' );
21
22eval { DateTime->last_day_of_month( year => 100, month => 2, locale => 'en_US' ) };
23is( $@, '', 'make sure constructor accepts locale parameter' );
24
25{
26    package DT::Object;
27    sub utc_rd_values { ( 0, 0 ) }
28}
29
30eval { DateTime->from_object( object => (bless {}, 'DT::Object'), locale => 'en_US' ) };
31is( $@, '', 'make sure constructor accepts locale parameter' );
32
33eval { DateTime->new( year => 100, locale => DateTime::Locale->load('en_US') ) };
34is( $@, '', 'make sure constructor accepts locale parameter as object' );
35
36DateTime->DefaultLocale('it');
37is( DateTime->now->locale->id, 'it', 'default locale should now be "it"' );
38