summaryrefslogtreecommitdiff
path: root/ghc/tests/lib/Time/time002.hs
diff options
context:
space:
mode:
authorsimonmar <unknown>2001-08-22 12:25:32 +0000
committersimonmar <unknown>2001-08-22 12:25:32 +0000
commit16acb4976514ab4b03c79d6845e3f0e98a1a33cf (patch)
treeaaa12fce1d598eb1b5384822033254344d7f6515 /ghc/tests/lib/Time/time002.hs
parentf2eadfd5dfb23cc611e2540f46180bca7d095f15 (diff)
downloadhaskell-16acb4976514ab4b03c79d6845e3f0e98a1a33cf.tar.gz
[project @ 2001-08-22 12:24:41 by simonmar]
Remove old test suite (subsumed by fptools/testsuite).
Diffstat (limited to 'ghc/tests/lib/Time/time002.hs')
-rw-r--r--ghc/tests/lib/Time/time002.hs16
1 files changed, 0 insertions, 16 deletions
diff --git a/ghc/tests/lib/Time/time002.hs b/ghc/tests/lib/Time/time002.hs
deleted file mode 100644
index d3c3e42ad3..0000000000
--- 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."