[project @ 2001-08-08 10:36:59 by simonmar]

update expected output

diff --git a/ghc/tests/lib/IO/readFile001.stdout b/ghc/tests/lib/IO/readFile001.stdout
index cd8caf6..9bb4f56 100644 (file)
--- a/ghc/tests/lib/IO/readFile001.stdout
+++ b/ghc/tests/lib/IO/readFile001.stdout
@@ -1,3 +1,7 @@
+Left resource busy
+Action: openFile
+Reason: file is locked
+File: readFile001.out
 -- !!! readFile test
 
 import IO
@@ -13,11 +17,8 @@ main = do
   s <- readFile filename
 
   -- This open should fail, because the readFile hasn't been forced
-  -- and the file is therefore still locked.  But GHC currently has a
-  -- bug in that the openFile truncates the file before checking
-  -- whether it was locked or not.
-  --    r <- try (openFile filename WriteMode)
-  --    print r
+  -- and the file is therefore still locked.
+  try (openFile filename WriteMode) >>= print
 
   putStrLn s