Rename some numeric tests: nnnn -> Tnnnn
authorIan Lynagh <ian@well-typed.com>
Fri, 25 Jan 2013 16:32:11 +0000 (16:32 +0000)
committerIan Lynagh <ian@well-typed.com>
Fri, 25 Jan 2013 16:32:11 +0000 (16:32 +0000)
19 files changed:
tests/IO/4808.hs [deleted file]
tests/IO/4808.stderr [deleted file]
tests/IO/Makefile
tests/IO/T2122.hs [moved from tests/IO/2122.hs with 99% similarity]
tests/IO/T3307.hs [moved from tests/IO/3307.hs with 100% similarity]
tests/IO/T3307.stdout [moved from tests/IO/3307.stdout with 100% similarity]
tests/IO/T4808.hs [new file with mode: 0644]
tests/IO/T4808.stderr [new file with mode: 0644]
tests/IO/T4808.stdout [moved from tests/IO/4808.stdout with 100% similarity]
tests/IO/T4855.hs [moved from tests/IO/4855.hs with 100% similarity]
tests/IO/T4855.stderr [moved from tests/IO/4855.stderr with 100% similarity]
tests/IO/T4895.hs [moved from tests/IO/4895.hs with 81% similarity]
tests/IO/T4895.stdout [moved from tests/IO/4895.stdout with 100% similarity]
tests/IO/all.T
tests/T4006.hs [moved from tests/4006.hs with 100% similarity]
tests/T4006.stdout [moved from tests/4006.stdout with 100% similarity]
tests/T5943.hs [moved from tests/5943.hs with 100% similarity]
tests/T5943.stdout [moved from tests/5943.stdout with 100% similarity]
tests/all.T

diff --git a/tests/IO/4808.hs b/tests/IO/4808.hs
deleted file mode 100644 (file)
index 5d64762..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-import System.IO
-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
-  hClose hdl
-  (fd2, _) <- FD.openFile "4808.test" ReadWriteMode False
-  print (fdFD fd == fdFD fd2) -- should be True
-  hGetLine hdl >>= print -- should fail with an exception
-
diff --git a/tests/IO/4808.stderr b/tests/IO/4808.stderr
deleted file mode 100644 (file)
index 25396c9..0000000
+++ /dev/null
@@ -1 +0,0 @@
-4808: 4808.test: hGetLine: illegal operation (handle is closed)
index a8bdf08..9d5089d 100644 (file)
@@ -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-小说
similarity index 99%
rename from tests/IO/2122.hs
rename to tests/IO/T2122.hs
index 3c0788d..9a8badc 100644 (file)
@@ -27,7 +27,7 @@ import System.Environment
 -- Used by test2:
 -- import System.Posix.IO
 
-fp = "2122-test"
+fp = "T2122-test"
 
 main :: IO ()
 main = do
similarity index 100%
rename from tests/IO/3307.hs
rename to tests/IO/T3307.hs
similarity index 100%
rename from tests/IO/3307.stdout
rename to tests/IO/T3307.stdout
diff --git a/tests/IO/T4808.hs b/tests/IO/T4808.hs
new file mode 100644 (file)
index 0000000..652b792
--- /dev/null
@@ -0,0 +1,13 @@
+import System.IO
+import GHC.IO.Handle
+import GHC.IO.FD as FD
+
+main = do
+  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 "T4808.test" ReadWriteMode False
+  print (fdFD fd == fdFD fd2) -- should be True
+  hGetLine hdl >>= print -- should fail with an exception
+
diff --git a/tests/IO/T4808.stderr b/tests/IO/T4808.stderr
new file mode 100644 (file)
index 0000000..0b7a89f
--- /dev/null
@@ -0,0 +1 @@
+T4808: T4808.test: hGetLine: illegal operation (handle is closed)
similarity index 100%
rename from tests/IO/4808.stdout
rename to tests/IO/T4808.stdout
similarity index 100%
rename from tests/IO/4855.hs
rename to tests/IO/T4855.hs
similarity index 100%
rename from tests/IO/4855.stderr
rename to tests/IO/T4855.stderr
similarity index 81%
rename from tests/IO/4895.hs
rename to tests/IO/T4895.hs
index bb37915..4867434 100644 (file)
@@ -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
similarity index 100%
rename from tests/IO/4895.stdout
rename to tests/IO/T4895.stdout
index 291f90f..4c70c38 100644 (file)
@@ -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, [''])
similarity index 100%
rename from tests/4006.hs
rename to tests/T4006.hs
similarity index 100%
rename from tests/4006.stdout
rename to tests/T4006.stdout
similarity index 100%
rename from tests/5943.hs
rename to tests/T5943.hs
similarity index 100%
rename from tests/5943.stdout
rename to tests/T5943.stdout
index 59354fe..c0e0439 100644 (file)
@@ -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, [''])