Replace obsolete `defaultUserHooks` by `autoconfUserHooks`
[packages/old-time.git] / tests / time004.hs
1 import System.Time
2
3 main :: IO ()
4 main = do
5 time <- getClockTime
6 let (CalendarTime year month mday hour min sec psec
7 wday yday timezone gmtoff isdst) = toUTCTime time
8 time' = toClockTime (CalendarTime (year - 1) month mday hour min sec psec
9 wday yday timezone gmtoff isdst)
10 print (length (show time) == length (show time'))