Commit 12850c11 authored by Ian Lynagh's avatar Ian Lynagh

Fix some more written-but-not-cleaned files

parent 877dc99e
......@@ -136,7 +136,10 @@ test('2276_ghci', [ only_ways(['ghci']),
test('2469', normal, compile_and_run, ['-optc-std=gnu99'])
test('2594', omit_ways(['ghci']), compile_and_run, ['2594_c.c'])
test('2594',
[extra_clean(['2594_c.o']), omit_ways(['ghci'])],
compile_and_run,
['2594_c.c'])
test('fptr01', [ omit_ways(['ghci']), extra_clean(['fptr01_c.o']) ],
compile_and_run, ['fptr01_c.c'])
......
......@@ -3,10 +3,11 @@ import GHC.IO.Handle
import GHC.IO.FD as FD
main = do
(fd, _) <- FD.openFile "4808.hs" ReadWriteMode False
hdl <- mkDuplexHandle fd "4808.hs" Nothing nativeNewlineMode
writeFile "4808.test" "This is some test data"
(fd, _) <- FD.openFile "4808.test" ReadWriteMode False
hdl <- mkDuplexHandle fd "4808.test" Nothing nativeNewlineMode
hClose hdl
(fd2, _) <- FD.openFile "4808.hs" ReadWriteMode False
(fd2, _) <- FD.openFile "4808.test" ReadWriteMode False
print (fdFD fd == fdFD fd2) -- should be True
hGetLine hdl >>= print -- should fail with an exception
4808: 4808.hs: hGetLine: illegal operation (handle is closed)
4808: 4808.test: hGetLine: illegal operation (handle is closed)
......@@ -152,5 +152,5 @@ test('T4144', normal, compile_and_run, [''])
test('encodingerror001', normal, compile_and_run, [''])
test('4808', exit_code(1), compile_and_run, [''])
test('4808', [exit_code(1), extra_clean(['4808.test'])], compile_and_run, [''])
test('4895', normal, compile_and_run, [''])
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