Update Trac ticket URLs to point to GitLab
[ghc.git] / libraries / base / tests / IO / hReady001.hs
1 -- !!! hReady test
2
3 -- hReady should throw and EOF exception at the end of a file. #1063.
4
5 import System.IO
6 import System.IO.Error
7
8 main = do
9 h <- openFile "hReady001.hs" ReadMode
10 hReady h >>= print
11 hSeek h SeekFromEnd 0
12 (hReady h >> return ()) `catchIOError` print