diff options
Diffstat (limited to 'testsuite/tests/lib/Time/time004.hs')
| -rw-r--r-- | testsuite/tests/lib/Time/time004.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/testsuite/tests/lib/Time/time004.hs b/testsuite/tests/lib/Time/time004.hs deleted file mode 100644 index 9a281a10da..0000000000 --- a/testsuite/tests/lib/Time/time004.hs +++ /dev/null @@ -1,10 +0,0 @@ -import System.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')) |