diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-09-06 13:24:57 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-09-06 13:24:57 +0100 |
| commit | 9bc7f50b6c983278ffa7b722240000d38037e149 (patch) | |
| tree | 3135352a22c0e732fef541443e2e9a7f318c68a7 /cpan/Time-Piece/t | |
| parent | e9483e47cc84a47f79657e90aaa2937554f94e00 (diff) | |
| download | perl-9bc7f50b6c983278ffa7b722240000d38037e149.tar.gz | |
Update Time-Piece to CPAN version 1.23
[DELTA]
1.23 2013-09-06
- add a LICENSE file (thanks, John Peacock!)
- make sure Time::Seconds loads Exporter, which it relies on (thanks,
GFUJI and TOKUHIROM!)
- fix day of year parsing (like "%y%j") (thanks, Doug Wilson)
Diffstat (limited to 'cpan/Time-Piece/t')
| -rw-r--r-- | cpan/Time-Piece/t/02core.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/cpan/Time-Piece/t/02core.t b/cpan/Time-Piece/t/02core.t index 1e8d2649a6..3840e879b4 100644 --- a/cpan/Time-Piece/t/02core.t +++ b/cpan/Time-Piece/t/02core.t @@ -1,4 +1,4 @@ -use Test::More tests => 95; +use Test::More tests => 96; my $is_win32 = ($^O =~ /Win32/); my $is_qnx = ($^O eq 'qnx'); @@ -215,6 +215,12 @@ cmp_ok(Time::Piece->strptime("2002/12/31", '%Y/%m/%d')->yday, '==', 364); cmp_ok(Time::Piece->strptime("2002/07/10", '%Y/%m/%d')->isdst, '==', 0); cmp_ok(Time::Piece->strptime("2002/07/10", '%Y/%m/%d')->day_of_week, '==', 3); +is( + Time::Piece->strptime('12212', "%y%j")->ymd(), + '2012-07-30', + "day of the year parsing", +); + cmp_ok( Time::Piece->strptime("2000/02/29 12:34:56", '%Y/%m/%d %H:%M:%S')->epoch, '==', |