[project @ 2001-01-14 15:46:53 by simonmar]

Add a slightly stronger test for Time that the ones in tests/io.  This
one reads the current time, converts it to CalendarTime and back
again, and tests that all three times converted to strings compare equal.

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

diff --git a/ghc/tests/lib/should_run/time002.stdout b/ghc/tests/lib/should_run/time002.stdout
new file mode 100644 (file)
index 0000000..587579a
--- /dev/null
+++ b/ghc/tests/lib/should_run/time002.stdout
@@ -0,0 +1 @@
+Ok.