xt/author/pp-19leap-second.t

63     # a floating time has no leap seconds
97     # leap seconds occur during _UTC_ midnight
112     is( $t->datetime, '1972-06-30T21:00:19', 'add over a leap second' );
117     is( $t->datetime, '1972-06-30T20:59:60', 'subtract over a leap second' );
141     is( $t->second, 0, 'datetime just after leap second' );
151     is( $t->second, 1, 'datetime two seconds after leap second' );
201     is( $t->second, 59, 'datetime just before leap second' );
211     is( $t->second, 0, 'datetime just after leap second' );
221     is( $t->second, 1, 'datetime two seconds after leap second' );
233         'time zone +00:00:30 and leap seconds, second value'
235     is( $t->minute, 0, 'time zone +00:00:30 and leap seconds, minute value' );
252         'add 1 day starting on leap second'
259         'add and subtract 1 day starting on leap second'
262     is( $t->leap_seconds, 1, 'datetime has 1 leap second' );
274         'epoch just before first leap second is 78796799'
279     is( $t->epoch, 78796800, 'epoch of first leap second is 78796800' );
285         'epoch of first second after first leap second is 78796700'
292     is( $dt->leap_seconds, 22, 'datetime has 22 leap seconds' );
298     is( $dt->leap_seconds, 0, 'floating datetime has 0 leap seconds' );
301 # date math across leap seconds distinguishes between minutes and second
362         'Cannot give second of 61 except when it matches a leap second'
373         'Cannot give second of 60 except when it matches a leap second'
460 # catch off-by-one when carrying a leap second
496         'add two days crossing a leap second (UTC)'
500 # a bunch of tests that math works across a leap second for various time zones
512         'add two days crossing a leap second (-0300)'
527         'add two days crossing a leap second (+0300)'
542         'add 48 hours crossing a leap second (UTC)'
557         'add 48 hours crossing a leap second (-0300)'
572         'add 48 hours crossing a leap second (+0300)'
587         'add 2880 minutes crossing a leap second (UTC)'
602         'add 2880 minutes crossing a leap second (-0300)'
617         'add 2880 minutes crossing a leap second (+0300)'
632         'add 172801 seconds crossing a leap second (UTC)'
647         'add 172801 seconds crossing a leap second (-0300)'
662         'add 172801 seconds crossing a leap second (+0300)'
677         'subtract two days crossing a leap second (UTC)'
692         'subtract two days crossing a leap second (-0300)'
707         'subtract two days crossing a leap second (+0300)'
722         'subtract 48 hours crossing a leap second (UTC)'
737         'subtract 48 hours crossing a leap second (-0300)'
752         'subtract 48 hours crossing a leap second (+0300)'
767         'subtract 2880 minutes crossing a leap second (UTC)'
782         'subtract 2880 minutes crossing a leap second (-0300)'
797         'subtract 2880 minutes crossing a leap second (+0300)'
812         'subtract 172801 seconds crossing a leap second (UTC)'
827         'subtract 172801 seconds crossing a leap second (-0300)'
842         'subtract 172801 seconds crossing a leap second (+0300)'
857         '24 hour time zone change near leap second'
872         '24 hour time zone change near leap second'
883     is( $dt->datetime, '1997-07-01T00:59:59', '+0100 time leap second T-1' );
887     is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
897     is( $dt->datetime, '1997-07-01T00:59:60', 'local time leap second T-0' );
901     is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
911     is( $dt->datetime, '1997-07-01T01:00:00', 'local time leap second T+1' );
915     is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
927         'local time end of leap second day'
934         'UTC time end of leap second day'
945     is( $dt->datetime, '1997-06-30T22:59:59', '-0100 time leap second T-1' );
949     is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
959     is( $dt->datetime, '1997-06-30T22:59:60', '-0100 time leap second T-0' );
963     is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
973     is( $dt->datetime, '1997-06-30T23:00:00', '-0100 time leap second T+1' );
977     is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
987     is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
991     is( $dt->datetime, '1997-07-01T00:59:59', '+0100 time leap second T-1' );
1001     is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
1005     is( $dt->datetime, '1997-07-01T00:59:60', '+0100 time leap second T-0' );
1015     is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
1019     is( $dt->datetime, '1997-07-01T01:00:00', '+0100 time leap second T+1' );
1031         'UTC time end of leap second day'
1038         '+0100 time end of leap second day'
1049     is( $dt->datetime, '1997-06-30T23:59:59', 'UTC time leap second T-1' );
1053     is( $dt->datetime, '1997-06-30T22:59:59', '-0100 time leap second T-1' );
1063     is( $dt->datetime, '1997-06-30T23:59:60', 'UTC time leap second T-0' );
1067     is( $dt->datetime, '1997-06-30T22:59:60', '-0100 time leap second T-0' );
1077     is( $dt->datetime, '1997-07-01T00:00:00', 'UTC time leap second T+1' );
1081     is( $dt->datetime, '1997-06-30T23:00:00', '-0100 time leap second T+1' );
1091     is( $dt->second, 60, 'leap second at end of 2005 is allowed' );
1186             "We can make a DateTime object for the leap second on $formatted"