Changeset 24912 for lang/perl/DateTime-Lite

Timestamp:

11/26/08 14:17:34 (4 years ago)

Author:

daisuke

Message:

apply changes from 0.4501

Files:

• lang/perl/DateTime-Lite/trunk/t/04epoch.t (modified) (3 diffs)

lang/perl/DateTime-Lite/trunk/t/04epoch.t

@@ -3 +3 @@
 use strict;
 
-use Test::More tests => 28;
+use Test::More tests => 32;
 
 use DateTime::Lite qw(Arithmetic);
@@ -90 +90 @@
     is( $epochtest->epoch, $expected,
         "epoch method returns correct adjusted value ($expected)");
+
 }
 
@@ -104 +105 @@
     is( $dt->nanosecond, 123_456_789, 'nanosecond should be an integer ' );
 }
+
+my $negative_epoch_ok = defined( (localtime(-1))[0] ) ? 1 : 0;
+
+SKIP:
+{
+    skip 'Negative epoch times do not work on some operating systems, including Win32', 4
+        unless $negative_epoch_ok;
+
+    is( DateTime::Lite->new( year => 1904 )->epoch, -2082844800,
+        "epoch should work back to at least 1904" );
+
+    my $dt = DateTime::Lite->from_epoch( epoch => -2082844800 );
+    is( $dt->year, 1904, 'year should be 1904' );
+    is( $dt->month,   1, 'month should be 1904' );
+    is( $dt->day,     1, 'day should be 1904' );
+}
+