This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: Add %p to strftime test
authorKarl Williamson <khw@cpan.org>
Tue, 17 Jun 2014 18:19:23 +0000 (12:19 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 18 Jun 2014 02:21:38 +0000 (20:21 -0600)
This can also output alpha text, so should be included in the alpha
tests for strftime.

lib/locale.t

index 7d7e27e..225ccbf 100644 (file)
@@ -1880,8 +1880,8 @@ foreach my $Locale (@Locale) {
 
         use locale;
         $ok19 = POSIX::strftime("%p", @times) ne "%p"; # [perl #119425]
-        my $date = POSIX::strftime("'%A'  '%B'  '%Z'", @times);
-        debug("'Day' 'Month' 'TZ' = ", disp_str($date));
+        my $date = POSIX::strftime("'%A'  '%B'  '%Z'  '%p'", @times);
+        debug("'Day' 'Month' 'TZ' 'am/pm' = ", disp_str($date));
 
         # If there is any non-ascii, it better be UTF-8 in a UTF-8 locale, and
         # not UTF-8 if the locale isn't UTF-8.