Copy tests from GHC testsuite; part of #1161.
[packages/base.git] / tests / IO / readFile001.stdout-i386-unknown-mingw32
1 Left readFile001.out: openFile: permission denied (Permission denied)
2 -- !!! readFile test
3
4 import System.IO
5 import System.IO.Error
6
7 source   = "readFile001.hs"
8 filename = "readFile001.out"
9
10 main = do
11   s <- readFile source
12   h <- openFile filename WriteMode
13   hPutStrLn h s
14   hClose h
15   s <- readFile filename
16
17   -- This open should fail, because the readFile hasn't been forced
18   -- and the file is therefore still locked.
19   tryIOError (openFile filename WriteMode) >>= print
20
21   putStrLn s
22
23   -- should be able to open it for writing now, because we've forced the
24   -- whole file.
25   h <- openFile filename WriteMode
26
27   print h
28
29
30 {handle: readFile001.out}