Fix T5430, make output independent of user timezone
authorDavid Terei <davidterei@gmail.com>
Fri, 13 Jan 2012 00:31:21 +0000 (16:31 -0800)
committerDavid Terei <davidterei@gmail.com>
Fri, 13 Jan 2012 00:31:21 +0000 (16:31 -0800)
testsuite/tests/lib/Time/T5430.hs

index b011ed6..28353d8 100644 (file)
@@ -3,6 +3,12 @@ import System.Locale
 import System.Time
 
 main :: IO ()
-main = do let clockTime = TOD 0 0 -- 00:00:00 on 1 Jan 1970
+main = do let clockTime = TOD 32400 0 -- 00:00:00 on 1 Jan 1970
           calTime <- toCalendarTime clockTime
-          putStrLn $ formatCalendarTime defaultTimeLocale "%j" calTime
+          -- We check for 001 or 365 (timezone locale will determine which one)
+          -- and output 001 for testing output consistently.
+          putStrLn $ case (formatCalendarTime defaultTimeLocale "%j" calTime) of
+                         "001" -> "001" -- good!
+                         "365" -> "001" -- good!
+                         n     -> n     -- error!
+