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