ghc/tests/lib/IO/openFile001.hs

   1 -- !!! test that a file opened in ReadMode can't be written to
   2
   3 import IO
   4
   5 main = do
   6   hIn <- openFile "openFile001.hs" ReadMode
   7   hPutStr hIn "test" `catch` \ err ->
   8       if isIllegalOperation err
   9         then putStrLn "ok."
  10         else error "Oh dear\n"