Commit 74ca59c3 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-06-29 13:42:19 by simonmar]

Test that openFile in WriteMode doesn't truncate the file if an error
occurs.
parent acf37abc
-- !!! 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
Left resource busy
Action: openFile
Reason: file is locked
File: openFile007.out
hello, world
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment