ext/Time-Piece/t/02core.t

   1 use Test::More tests => 95;
   2
   3 my $is_win32 = ($^O =~ /Win32/);
   4 my $is_qnx = ($^O eq 'qnx');
   5 BEGIN { use_ok('Time::Piece'); }
   6 ok(1);
   7
   8 my $t = gmtime(951827696); # 2000-02-29T12:34:56
   9
  10 is($t->sec,               56);
  11 is($t->second,            56);
  12 is($t->min,               34);
  13 is($t->minute,            34);
  14 is($t->hour,              12);
  15 is($t->mday,              29);
  16 is($t->day_of_month,      29);
  17 is($t->mon,                2);
  18 is($t->_mon,               1);
  19 is($t->monname,        'Feb');
  20 is($t->month,          'Feb');
  21 is($t->fullmonth, 'February');
  22 is($t->year,            2000);
  23 is($t->_year,            100);
  24 is($t->yy,              '00');
  25
  26 cmp_ok($t->wday,        '==',         3);
  27 cmp_ok($t->_wday,       '==',         2);
  28 cmp_ok($t->day_of_week, '==',         2);
  29 cmp_ok($t->wdayname,    'eq',     'Tue');
  30 cmp_ok($t->day,         'eq',     'Tue');
  31 cmp_ok($t->fullday,     'eq', 'Tuesday');
  32 cmp_ok($t->yday,        '==',        59);
  33 cmp_ok($t->day_of_year, '==',        59);
  34
  35 # In GMT there should be no daylight savings ever.
  36 cmp_ok($t->isdst, '==', 0);
  37 cmp_ok($t->epoch, '==', 951827696);
  38 cmp_ok($t->hms,   'eq',   '12:34:56');
  39 cmp_ok($t->time,  'eq',   '12:34:56');
  40 cmp_ok($t->ymd,   'eq', '2000-02-29');
  41 cmp_ok($t->date,  'eq', '2000-02-29');
  42 cmp_ok($t->mdy,   'eq', '02-29-2000');
  43 cmp_ok($t->dmy,   'eq', '29-02-2000');
  44 cmp_ok($t->cdate, 'eq', 'Tue Feb 29 12:34:56 2000');
  45 cmp_ok("$t",      'eq', 'Tue Feb 29 12:34:56 2000');
  46 cmp_ok($t->datetime, 'eq','2000-02-29T12:34:56');
  47 cmp_ok($t->daylight_savings, '==', 0);
  48
  49 # ->tzoffset?
  50 my $is_pseudo_fork = 0;
  51 if (defined &Win32::GetCurrentProcessId
  52     ? $$ != Win32::GetCurrentProcessId() : $^O eq "MSWin32" && $$ < 0) {
  53     $is_pseudo_fork = 1;
  54 }
  55 SKIP: {
  56     skip "can't register TZ changes in a pseudo-fork", 2 if $is_pseudo_fork;
  57     local $ENV{TZ} = "EST5";
  58     Time::Piece::_tzset();  # register the environment change
  59     my $lt = localtime;
  60     cmp_ok(scalar($lt->tzoffset), 'eq', '-18000');
  61     cmp_ok($lt->strftime("%Z"), 'eq', 'EST');
  62 }
  63
  64 cmp_ok(($t->julian_day / 2451604.0243 ) - 1, '<', 0.001);
  65 cmp_ok(($t->mjd        /   51603.52426) - 1, '<', 0.001);
  66 cmp_ok($t->week, '==', 9);
  67
  68 # strftime tests
  69
  70 # %a, %A, %b, %B, %c are locale-dependent
  71
  72 # %C is unportable: sometimes its like asctime(3) or date(1),
  73 # sometimes it's the century (and whether for 2000 the century is
  74 # 20 or 19, is fun, too..as far as I can read SUSv2 it should be 20.)
  75 cmp_ok($t->strftime('%d'), '==', 29);
  76
  77 SKIP: {
  78   skip "can't strftime %D, %R, %T or %e on Win32", 1 if $is_win32;
  79   cmp_ok($t->strftime('%D'), 'eq', '02/29/00'); # Yech!
  80 }
  81 SKIP:{
  82   skip "can't strftime %D, %R, %T or %e on Win32", 1 if $is_win32;
  83   skip "can't strftime %e on QNX", 1 if $is_qnx;
  84   cmp_ok($t->strftime('%e'), 'eq', '29');       # should test with < 10
  85 }
  86
  87 # %h is locale-dependent
  88 cmp_ok($t->strftime('%H'), 'eq', '12'); # should test with < 10
  89
  90 cmp_ok($t->strftime('%I'), 'eq', '12'); # should test with < 10
  91 cmp_ok($t->strftime('%j'), '==',  60 ); # why ->yday+1 ?
  92 cmp_ok($t->strftime('%M'), 'eq', '34'); # should test with < 10
  93
  94 # %p, %P, and %r are not widely implemented,
  95 # and are possibly unportable (am or AM or a.m., and so on)
  96
  97 SKIP: {
  98   skip "can't strftime %R on Win32 or QNX", 1 if $is_win32 or $is_qnx;
  99   cmp_ok($t->strftime('%R'), 'eq', '12:34');    # should test with > 12
 100 }
 101
 102 ok($t->strftime('%S') eq '56'); # should test with < 10
 103
 104 SKIP: {
 105   skip "can't strftime %T on Win32", 1 if $is_win32;
 106   cmp_ok($t->strftime('%T'), 'eq', '12:34:56'); # < 12 and > 12
 107 }
 108
 109 # There are bugs in the implementation of %u in many platforms.
 110 # (e.g. Linux seems to think, despite the man page, that %u
 111 # 1-based on Sunday...)
 112
 113 cmp_ok($t->strftime('%U'), 'eq', '09'); # Sun cmp Mon
 114
 115 SKIP: {
 116     skip "can't strftime %V on Win32 or QNX", 1 if $is_win32 or $is_qnx;
 117     # is this test really broken on Mac OS? -- rjbs, 2006-02-08
 118     cmp_ok($t->strftime('%V'), 'eq', '09'); # Sun cmp Mon
 119 }
 120
 121 cmp_ok($t->strftime('%w'), '==', 2);
 122 cmp_ok($t->strftime('%W'), 'eq', '09'); # Sun cmp Mon
 123
 124 # %x is locale and implementation dependent.
 125
 126 cmp_ok($t->strftime('%y'), '==', 0); # should test with 1999
 127 cmp_ok($t->strftime('%Y'), 'eq', '2000');
 128
 129 # %Z is locale and implementation dependent
 130 # (there is NO standard for timezone names)
 131 cmp_ok($t->date(""), 'eq', '20000229');
 132 cmp_ok($t->ymd("") , 'eq', '20000229');
 133 cmp_ok($t->mdy("/"), 'eq', '02/29/2000');
 134 cmp_ok($t->dmy("."), 'eq', '29.02.2000');
 135 cmp_ok($t->date_separator, 'eq', '-');
 136
 137 $t->date_separator("/");
 138 cmp_ok($t->date_separator, 'eq', '/');
 139 cmp_ok($t->ymd,            'eq', '2000/02/29');
 140
 141 $t->date_separator("-");
 142 cmp_ok($t->time_separator, 'eq', ':');
 143 cmp_ok($t->hms("."),       'eq', '12.34.56');
 144
 145 $t->time_separator(".");
 146 cmp_ok($t->time_separator, 'eq', '.');
 147 cmp_ok($t->hms,            'eq', '12.34.56');
 148
 149 $t->time_separator(":");
 150
 151 my @fidays = qw( sunnuntai maanantai tiistai keskiviikko torstai
 152                  perjantai lauantai );
 153 my @frdays = qw( Dimanche Lundi Merdi Mercredi Jeudi Vendredi Samedi );
 154
 155 cmp_ok($t->day(@fidays), 'eq', "tiistai");
 156 my @days = $t->day_list();
 157
 158 $t->day_list(@frdays);
 159
 160 cmp_ok($t->day, 'eq', "Merdi");
 161
 162 $t->day_list(@days);
 163
 164 cmp_ok($t->day, 'eq', "Tue");
 165
 166 my @months = $t->mon_list();
 167
 168 my @dumonths = qw(januari februari maart april mei juni
 169                   juli augustus september oktober november december);
 170
 171 cmp_ok($t->month(@dumonths), 'eq', "februari");
 172
 173 $t->mon_list(@dumonths);
 174
 175 cmp_ok($t->month, 'eq', "februari");
 176
 177 $t->mon_list(@months);
 178
 179 cmp_ok($t->month, 'eq', "Feb");
 180
 181 cmp_ok(
 182   $t->datetime(date => '/', T => ' ', time => '-'),
 183   'eq',
 184   "2000/02/29 12-34-56"
 185 );
 186
 187 ok($t->is_leap_year); # should test more with different dates
 188
 189 cmp_ok($t->month_last_day, '==', 29); # test more
 190
 191 ok(!Time::Piece::_is_leap_year(1900));
 192
 193 ok(!Time::Piece::_is_leap_year(1901));
 194
 195 ok(Time::Piece::_is_leap_year(1904));
 196
 197 cmp_ok(Time::Piece->strptime("1945", "%Y")->year, '==', 1945, "Year is 1945?");
 198
 199 cmp_ok(Time::Piece->strptime("13:00", "%H:%M")->hour, '==', 13, "Hour is 13?");
 200
 201 # Test week number
 202 # [from Ilya Martynov]
 203 cmp_ok(Time::Piece->strptime("2002/06/10 0", '%Y/%m/%d %H')->week,  '==', 24);
 204 cmp_ok(Time::Piece->strptime("2002/06/10 1", '%Y/%m/%d %H')->week,  '==', 24);
 205 cmp_ok(Time::Piece->strptime("2002/06/10 2", '%Y/%m/%d %H')->week,  '==', 24);
 206 cmp_ok(Time::Piece->strptime("2002/06/10 12", '%Y/%m/%d %H')->week, '==', 24);
 207 cmp_ok(Time::Piece->strptime("2002/06/10 13", '%Y/%m/%d %H')->week, '==', 24);
 208 cmp_ok(Time::Piece->strptime("2002/06/10 14", '%Y/%m/%d %H')->week, '==', 24);
 209 cmp_ok(Time::Piece->strptime("2002/06/10 23", '%Y/%m/%d %H')->week, '==', 24);
 210
 211 # Test that strptime populates all relevant fields
 212 cmp_ok(Time::Piece->strptime("2002/07/10", '%Y/%m/%d')->wday,  '==', 4);
 213 cmp_ok(Time::Piece->strptime("2002/12/31", '%Y/%m/%d')->yday,  '==', 364);
 214 cmp_ok(Time::Piece->strptime("2002/07/10", '%Y/%m/%d')->isdst, '==', 0);
 215 cmp_ok(Time::Piece->strptime("2002/07/10", '%Y/%m/%d')->day_of_week, '==', 3);
 216
 217 cmp_ok(
 218   Time::Piece->strptime("2000/02/29 12:34:56", '%Y/%m/%d %H:%M:%S')->epoch,
 219   '==',
 220   951827696
 221 );