summaryrefslogtreecommitdiff
path: root/libraries/base/tests/IO/readFile001.stdout-mingw32
diff options
context:
space:
mode:
Diffstat (limited to 'libraries/base/tests/IO/readFile001.stdout-mingw32')
-rw-r--r--libraries/base/tests/IO/readFile001.stdout-mingw3230
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}