[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / Time / time002.hs

diff --git a/ghc/tests/lib/Time/time002.hs b/ghc/tests/lib/Time/time002.hs
deleted file mode 100644 (file)
index d3c3e42..0000000
--- a/ghc/tests/lib/Time/time002.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-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."