3 -- !!! check that we can read the current ClockTime, convert it
4 -- !!! to CalendarTime and back again, and that all three times when
5 -- !!! converted to strings compare equal.
11 let cal = calendarTimeToString c
12 let t2 = toClockTime c
14 if (clock == cal && clock == clock2)
16 else putStrLn "Failed."