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

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

diff --git a/ghc/tests/lib/IO/openFile007.hs b/ghc/tests/lib/IO/openFile007.hs
deleted file mode 100644 (file)
index 9c3f8be..0000000
--- a/ghc/tests/lib/IO/openFile007.hs
+++ /dev/null
@@ -1,17 +0,0 @@
--- !!! check that we don't truncate files if the open fails
-
-import IO
-import Monad
-
-tmp = "openFile007.out"
-
-main = do
-  h <- openFile tmp WriteMode
-  hPutStrLn h "hello, world"
-
-  -- second open in write mode better fail, but better not truncate the file
-  try (openFile tmp WriteMode) >>= print
-  
-  hClose h
-  s <- readFile tmp -- make sure our "hello, world" is still there
-  putStr s