1# Testing object creation passing in an epoch time 2 3use Test::More qw(no_plan); 4 5BEGIN { 6 use_ok( 'Date::ISO' ); 7 use_ok( 'Time::Local' ); 8} 9 10my $iso; 11 12my $date = timegm(0,0,0,25,9,1971); 13$iso = Date::ISO->new( epoch => $date, offset => 0 ); 14is( $iso->offset, 0, "Offset?"); 15 16is( $iso->year, 1971, 'year()' ); 17is( $iso->month, 10, 'month()' ); 18is( $iso->day, 25, 'day()' ); 19 20is( $iso->iso_year, 1971, 'iso_year()' ); 21is( $iso->iso_week, 43, 'iso_week()' ); 22is( $iso->iso_week_day, 1, 'iso_week_day()' ); 23 24$date = timegm(0,0,0,28,3,2001); 25$iso = Date::ISO->new( epoch => $date, offset => 0 ); 26is( $iso->offset, 0, "Offset?"); 27 28is( $iso->year, 2001, 'year()'); 29is( $iso->month, 4, 'month()' ); 30is( $iso->day, 28, 'day()' ); 31 32is( $iso->iso_year, 2001, 'iso_year()' ); 33is( $iso->iso_week, 17, 'iso_week()' ); 34is( $iso->iso_week_day, 6, 'iso_week_day()' ); 35 36 37