Fix some more written-but-not-cleaned files

testsuite/tests/ffi/should_run/all.T

@@ -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'])

testsuite/tests/lib/IO/4808.hs

@@ -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
 

testsuite/tests/lib/IO/4808.stderr

-4808: 4808.hs: hGetLine: illegal operation (handle is closed)
+4808: 4808.test: hGetLine: illegal operation (handle is closed)

testsuite/tests/lib/IO/all.T

@@ -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, [''])