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

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

diff --git a/ghc/tests/lib/IO/openFile001.hs b/ghc/tests/lib/IO/openFile001.hs
deleted file mode 100644 (file)
index 02e1403..0000000
--- a/ghc/tests/lib/IO/openFile001.hs
+++ /dev/null
@@ -1,10 +0,0 @@
--- !!! test that a file opened in ReadMode can't be written to
-
-import IO
-
-main = do
-  hIn <- openFile "openFile001.hs" ReadMode
-  hPutStr hIn "test" `catch` \ err ->
-      if isIllegalOperation err 
-       then putStrLn "ok."
-       else error "Oh dear\n"