[project @ 2001-05-18 16:54:04 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / IO / hFlush001.hs

diff --git a/ghc/tests/io/should_run/io029.hs b/ghc/tests/lib/IO/hFlush001.hs
similarity index 65%
rename from ghc/tests/io/should_run/io029.hs
rename to ghc/tests/lib/IO/hFlush001.hs
index 4eb722d..059b3ad 100644 (file)
--- a/ghc/tests/io/should_run/io029.hs
+++ b/ghc/tests/lib/IO/hFlush001.hs
@@ -11,21 +11,21 @@ main = do
   hFlush stdout
   putStr "Hello - "
   hFlush stderr
-  hdl <- openFile "io029.hs" ReadMode
+  hdl <- openFile "hFlush001.hs" ReadMode
   hFlush hdl `catch` \ _ -> putStrLn "No can do - flushing read-only handles isn't legal"
   hClose hdl
   remove
-  hdl <- openFile "io029.out" WriteMode
+  hdl <- openFile "hFlush001.out" WriteMode
   hFlush hdl
   hClose hdl
   remove
-  hdl <- openFile "io029.out" AppendMode
+  hdl <- openFile "hFlush001.out" AppendMode
   hFlush hdl
   hClose hdl
   remove
-  hdl <- openFile "io029.out" ReadWriteMode
+  hdl <- openFile "hFlush001.out" ReadWriteMode
   hFlush hdl
   hClose hdl
  where remove = do
-         f <- doesFileExist "io029.out"
-         when f (removeFile "io029.out")
+         f <- doesFileExist "hFlush001.out"
+         when f (removeFile "hFlush001.out")