diff options
| author | simonmar <unknown> | 2001-08-22 12:25:32 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-08-22 12:25:32 +0000 |
| commit | 16acb4976514ab4b03c79d6845e3f0e98a1a33cf (patch) | |
| tree | aaa12fce1d598eb1b5384822033254344d7f6515 /ghc/tests/lib/Time/time002.hs | |
| parent | f2eadfd5dfb23cc611e2540f46180bca7d095f15 (diff) | |
| download | haskell-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.hs | 16 |
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." |
