Commit ef5fd520 authored by Simon Marlow's avatar Simon Marlow
Browse files

updates to hReady001 (see comments in all.T)

parent fd00a218
......@@ -30,7 +30,9 @@ test('hIsEOF001', normal, compile_and_run, [''])
test('hIsEOF002', normal, compile_and_run, ['-cpp'])
clean(['hIsEOF002.out'])
# hReady doesn't work at the end of a file in GHC
# hReady is broken for files (always returns False) on Unix platforms
# (bug #1063) , but is broken in a different way on Windows (always
# returns True) (bug #1198).
test('hReady001', expect_broken_if_compiler_type(1063, 'ghc'), compile_and_run, ['-cpp'])
test('hSeek001', normal, compile_and_run, [''])
......
......@@ -13,5 +13,6 @@ main = do
#ifdef i386_unknown_mingw32
hSetBinaryMode h True
#endif
hReady h >>= print
hSeek h SeekFromEnd 0
hReady h >>= print
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