[project @ 2000-04-25 11:27:35 by rrt]

[ghc-hetmet.git] / ghc / tests / io / should_run / io012.hs

diff --git a/ghc/tests/io/should_run/io012.hs b/ghc/tests/io/should_run/io012.hs
index c5a16b7..06114c6 100644 (file)
--- a/ghc/tests/io/should_run/io012.hs
+++ b/ghc/tests/io/should_run/io012.hs
@@ -1,12 +1,13 @@
-import IO -- 1.3
+-- !!! Test getCPUTime
+
+import IO
 
 import CPUTime
 
-main = 
-    openFile "/dev/null" WriteMode >>= \ h ->
-    hPrint h (nfib 30) >>
-    getCPUTime >>= \ t ->
-    print t
+main = do
+    print (nfib 30)
+    t <- getCPUTime
+    print (length (show t)) -- printing the CPU time itself is un-cool if you want to diff the output..
 
 nfib :: Integer -> Integer
 nfib n