This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b0929aa
)
Fix ext/POSIX/t/time.t test 17's name to be a) unique, and b) factually accurate
author
Paul "LeoNerd" Evans
<leonerd@leonerd.org.uk>
Tue, 31 Jan 2012 18:17:16 +0000
(18:17 +0000)
committer
Ævar Arnfjörð Bjarmason
<avar@cpan.org>
Sat, 11 Feb 2012 22:22:25 +0000
(22:22 +0000)
ext/POSIX/t/time.t
patch
|
blob
|
blame
|
history
diff --git
a/ext/POSIX/t/time.t
b/ext/POSIX/t/time.t
index
3d38610
..
bcd3b16
100644
(file)
--- a/
ext/POSIX/t/time.t
+++ b/
ext/POSIX/t/time.t
@@
-76,7
+76,7
@@
is_deeply(\@time, [1, 23, 4, 18, 12-1, 2011-1900, 0, 351, 0], 'strptime() all da
# tm_year == 6 => 1906, which is a negative time_t. Lets use 106 as 2006 instead
@time = POSIX::strptime("12:34:56", "%H:%M:%S", 1, 2, 3, 4, 5, 106);
-is_deeply(\@time, [56, 34, 12, 4, 5, 106, 0, 154, 1], 'strptime() all
date fields with passed tim
e');
+is_deeply(\@time, [56, 34, 12, 4, 5, 106, 0, 154, 1], 'strptime() all
time fields with passed dat
e');
@time = POSIX::strptime("July 4", "%b %d");
is_deeply([@time[3,4]], [4, 7-1], 'strptime() partial yields correct mday/mon');