[project @ 2001-08-22 12:24:41 by simonmar]

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

diff --git a/ghc/tests/lib/IO/readwrite002.hs b/ghc/tests/lib/IO/readwrite002.hs
deleted file mode 100644 (file)
index cd6e34d..0000000
--- a/ghc/tests/lib/IO/readwrite002.hs
+++ /dev/null
@@ -1,45 +0,0 @@
--- !!! Testing RW handles 
-import IO
-import Directory (removeFile, doesFileExist)
-import Monad
-#if defined(__MINGW32__)
-import PrelHandle(hSetBinaryMode)
-#endif
-
--- This test is weird, full marks to whoever dreamt it up!
-
-main :: IO ()
-main = do
-   let username = "readwrite002.inout"
-   f <- doesFileExist username
-   when f (removeFile username)
-   cd <- openFile username ReadWriteMode
-#  if defined(__MINGW32__)
-   hSetBinaryMode cd True
-#  endif
-   hSetBuffering stdin NoBuffering
-   hSetBuffering stdout NoBuffering
-   hSetBuffering cd NoBuffering
-   hPutStr cd speakString
-   hSeek cd AbsoluteSeek 0
-   speak cd  `catch` \ err -> if isEOFError err then putStrLn "\nCaught EOF" else ioError err
-   hSeek cd AbsoluteSeek 0
-   hSetBuffering cd LineBuffering
-   speak cd  `catch` \ err -> if isEOFError err then putStrLn "\nCaught EOF" else ioError err
-   hSeek cd AbsoluteSeek 0
-   hSetBuffering cd (BlockBuffering Nothing)
-   speak cd  `catch` \ err -> if isEOFError err then putStrLn "\nCaught EOF" else ioError err
-
-speakString = "##############################\n"
-
-speak cd = do
-     (do
-        ready <- hReady cd
-        if ready then 
-          hGetChar cd >>= putChar
-        else
-          return ()
-        ready <- hReady stdin
-        if ready then (do { ch <- getChar; hPutChar cd ch})
-         else return ())
-     speak cd