[svk-commit] r2455 - branches/i18n-fixes/t

[nobody at bestpractical.com]

Author: clsung
Date: Mon Jul 16 04:56:11 2007
New Revision: 2455

Modified:
   branches/i18n-fixes/t/32list.t

Log:
- POSIX::strftime() may raise some problems on WIN32
  - different behaviors between POSIX::strftime/Date::Format::strftime
    - one require scalar values, one require array values
- so just use mktime() to pet them both (via SVK::Util::time2str)

Modified: branches/i18n-fixes/t/32list.t
==============================================================================
--- branches/i18n-fixes/t/32list.t	(original)
+++ branches/i18n-fixes/t/32list.t	Mon Jul 16 04:56:11 2007
@@ -2,6 +2,7 @@
 use Test::More tests => 69;
 use strict;
 use SVK::Test;
+use SVK::Util qw( time2str );
 our $output;
 
 my ($xd, $svk) = build_test('bob');
@@ -43,8 +44,10 @@
                ["/$depot/A/B/","/$depot/A/foo", '', 'Path /crap is not versioned.', '']);
     ok ($svk->ls ('-f', "/$depot/A", "/$depot/crap/") == 1, "ls -f /$depot/A /$depot/crap/ [exit status]");
 
-    use POSIX qw( strftime );
-    my $re_date = join '|', map { quotemeta strftime( "%b", 0, 0, 0, 1, $_, 96) } 0 .. 11;
+    use POSIX qw( mktime );
+    my $re_date = join '|', map { 
+	quotemeta time2str( "%b", mktime(0, 0, 0, 1, $_, 96) ) 
+    } 0 .. 11;
     $re_date = " ?(?:$re_date) \\d{2} \\d{2}:\\d{2}";
     my $re_user = "(?:\\S*\\s+)";
     is_output ($svk, 'ls', ['-v'],