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

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

diff --git a/ghc/tests/lib/Time/time004.hs b/ghc/tests/lib/Time/time004.hs
deleted file mode 100644 (file)
index 31fd567..0000000
--- a/ghc/tests/lib/Time/time004.hs
+++ /dev/null
@@ -1,10 +0,0 @@
-import Time
-
-main :: IO ()
-main = do
-    time <- getClockTime
-    let (CalendarTime year month mday hour min sec psec 
-                      wday yday timezone gmtoff isdst) = toUTCTime time
-        time' = toClockTime (CalendarTime (year - 1) month mday hour min sec psec
-                             wday yday timezone gmtoff isdst)
-    print (length (show time) == length (show time'))