This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix ext/POSIX/t/time.t test 17's name to be a) unique, and b) factually accurate
authorPaul "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

index 3d38610..bcd3b16 100644 (file)
@@ -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);
 
 # 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 time');
+is_deeply(\@time, [56, 34, 12, 4, 5, 106, 0, 154, 1], 'strptime() all time fields with passed date');
 
 @time = POSIX::strptime("July 4", "%b %d");
 is_deeply([@time[3,4]], [4, 7-1], 'strptime() partial yields correct mday/mon');
 
 @time = POSIX::strptime("July 4", "%b %d");
 is_deeply([@time[3,4]], [4, 7-1], 'strptime() partial yields correct mday/mon');