Commit 4f2f158a authored by simonmar's avatar simonmar

[project @ 2001-01-14 15:46:53 by simonmar]

Add a slightly stronger test for Time that the ones in tests/io.  This
one reads the current time, converts it to CalendarTime and back
again, and tests that all three times converted to strings compare equal.
parent 7d9a3402
import 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."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment