summaryrefslogtreecommitdiff
path: root/testsuite/tests/lib/Time/time002.hs
blob: e2f9bcb7a7a47857d6da5b733c004672a23eeb25 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
import System.Time

-- !!! check that we can read the current ClockTime, convert it
-- !!! to CalendarTime and back again, and that all three times when
-- !!! converted to strings compare equal.

main = do
  t <- getClockTime
  let clock = show t
  c <- toCalendarTime t
  let cal = calendarTimeToString c
  let t2 = toClockTime c
      clock2 = show t2
  if (clock == cal && clock == clock2)
	then putStrLn "Ok."
	else putStrLn "Failed."