Rename some numeric tests: nnnn -> Tnnnn

libraries/base/tests/IO/4808.stderr

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

libraries/base/tests/IO/Makefile

@@ -43,10 +43,10 @@ environment001-test:
 	"$(TEST_HC)" --make -fforce-recomp -v0 environment001.hs -o environment001 
 	GHC_TEST=马克斯 ./environment001 说
 
-3307-test:
-	"$(TEST_HC)" --make -fforce-recomp -v0 3307.hs -o 3307
+T3307-test:
+	"$(TEST_HC)" --make -fforce-recomp -v0 T3307.hs -o T3307
 	echo Ni hao > chinese-file-小说
 	echo chinese-file-小说 > chinese-name
 	# The tests are run in whatever the default locale is. This is almost always UTF-8,
 	# but in cmd on Windows it will be the non-Unicode CP850 locale.
-	./3307 chinese-file-小说
+	./T3307 chinese-file-小说

libraries/base/tests/IO/2122.hs → libraries/base/tests/IO/T2122.hs

@@ -27,7 +27,7 @@ import System.Environment
 -- Used by test2:
 -- import System.Posix.IO
 
-fp = "2122-test"
+fp = "T2122-test"
 
 main :: IO ()
 main = do

libraries/base/tests/IO/4808.hs → libraries/base/tests/IO/T4808.hs

@@ -3,11 +3,11 @@ import GHC.IO.Handle
 import GHC.IO.FD as FD
 
 main = do
-  writeFile "4808.test" "This is some test data"
-  (fd, _) <- FD.openFile "4808.test" ReadWriteMode False
-  hdl <- mkDuplexHandle fd "4808.test" Nothing nativeNewlineMode
+  writeFile "T4808.test" "This is some test data"
+  (fd, _) <- FD.openFile "T4808.test" ReadWriteMode False
+  hdl <- mkDuplexHandle fd "T4808.test" Nothing nativeNewlineMode
   hClose hdl
-  (fd2, _) <- FD.openFile "4808.test" ReadWriteMode False
+  (fd2, _) <- FD.openFile "T4808.test" ReadWriteMode False
   print (fdFD fd == fdFD fd2) -- should be True
   hGetLine hdl >>= print -- should fail with an exception
 

libraries/base/tests/IO/T4808.stderr

+T4808: T4808.test: hGetLine: illegal operation (handle is closed)

libraries/base/tests/IO/4895.hs → libraries/base/tests/IO/T4895.hs

@@ -3,7 +3,7 @@ import Foreign.Marshal.Alloc
 import System.IO
 
 main = do
-  h <- openBinaryFile "4895.hs" ReadMode
+  h <- openBinaryFile "T4895.hs" ReadMode
   allocaBytes 10 $ \ptr -> hGetBuf h ptr 10
   some <- allocaBytes 10 $ \ptr -> hGetBufSome h ptr 10
   print some

libraries/base/tests/IO/all.T

@@ -117,13 +117,13 @@ test('concio001.thr', skip, run_command, ['$MAKE -s --no-print-directory test.co
 
 test('concio002', reqlib('process'), compile_and_run, [''])
 
-test('2122', extra_clean(['2122-test']), compile_and_run, [''])
-test('3307',
+test('T2122', extra_clean(['T2122-test']), compile_and_run, [''])
+test('T3307',
      [if_msys(expect_broken(5599)),
       extra_clean(['chinese-file-小说', 'chinese-name'])],
      run_command,
-     ['$MAKE -s --no-print-directory 3307-test'])
-test('4855', normal, compile_and_run, [''])
+     ['$MAKE -s --no-print-directory T3307-test'])
+test('T4855', normal, compile_and_run, [''])
 
 test('hSetEncoding001',extra_run_opts('hSetEncoding001.in'), compile_and_run, [''])
 test('decodingerror001',normal, compile_and_run, [''])
@@ -157,5 +157,5 @@ test('T4144', normal, compile_and_run, [''])
 
 test('encodingerror001', normal, compile_and_run, [''])
 
-test('4808', [exit_code(1), extra_clean(['4808.test'])], compile_and_run, [''])
-test('4895', normal, compile_and_run, [''])
+test('T4808', [exit_code(1), extra_clean(['T4808.test'])], compile_and_run, [''])
+test('T4895', normal, compile_and_run, [''])

libraries/base/tests/all.T

@@ -114,9 +114,9 @@ test('weak001', normal, compile_and_run, [''])
 #     cat: write error: Permission denied
 # Seems to be a known problem, e.g.
 #     http://mingw-users.1079350.n2.nabble.com/Bug-re-Unicode-on-the-console-td3121717.html
-test('4006', if_msys(expect_fail), compile_and_run, [''])
+test('T4006', if_msys(expect_fail), compile_and_run, [''])
 
-test('5943', normal, compile_and_run, [''])
+test('T5943', normal, compile_and_run, [''])
 test('T5962', normal, compile_and_run, [''])
 test('T7034', normal, compile_and_run, [''])