diff options
Diffstat (limited to 'libraries/base/tests/IO/readFile001.stdout-mingw32')
-rw-r--r-- | libraries/base/tests/IO/readFile001.stdout-mingw32 | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/libraries/base/tests/IO/readFile001.stdout-mingw32 b/libraries/base/tests/IO/readFile001.stdout-mingw32 deleted file mode 100644 index d086f3a209..0000000000 --- a/libraries/base/tests/IO/readFile001.stdout-mingw32 +++ /dev/null @@ -1,30 +0,0 @@ -Left readFile001.out: openFile: permission denied (Permission denied) --- !!! readFile test - -import System.IO -import System.IO.Error - -source = "readFile001.hs" -filename = "readFile001.out" - -main = do - s <- readFile source - h <- openFile filename WriteMode - hPutStrLn h s - hClose h - s <- readFile filename - - -- This open should fail, because the readFile hasn't been forced - -- and the file is therefore still locked. - tryIOError (openFile filename WriteMode) >>= print - - putStrLn s - - -- should be able to open it for writing now, because we've forced the - -- whole file. - h <- openFile filename WriteMode - - print h - - -{handle: readFile001.out} |