Replace obsolete `defaultUserHooks` by `autoconfUserHooks`
[packages/old-time.git] / tests / T5430.hs
1
2 import System.Locale
3 import System.Time
4
5 main :: IO ()
6 main = do let clockTime = TOD 32400 0 -- 00:00:00 on 1 Jan 1970
7 calTime <- toCalendarTime clockTime
8 -- We check for 001 or 365 (timezone locale will determine which one)
9 -- and output 001 for testing output consistently.
10 putStrLn $ case (formatCalendarTime defaultTimeLocale "%j" calTime) of
11 "001" -> "001" -- good!
12 "365" -> "001" -- good!
13 n -> n -- error!
14