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