Commit 23517dea authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Rename some numeric tests: nnnn -> Tnnnn

parent 38c54bd2
4808: 4808.test: hGetLine: illegal operation (handle is closed)
...@@ -43,10 +43,10 @@ environment001-test: ...@@ -43,10 +43,10 @@ environment001-test:
"$(TEST_HC)" --make -fforce-recomp -v0 environment001.hs -o environment001 "$(TEST_HC)" --make -fforce-recomp -v0 environment001.hs -o environment001
GHC_TEST=马克斯 ./environment001 说 GHC_TEST=马克斯 ./environment001 说
3307-test: T3307-test:
"$(TEST_HC)" --make -fforce-recomp -v0 3307.hs -o 3307 "$(TEST_HC)" --make -fforce-recomp -v0 T3307.hs -o T3307
echo Ni hao > chinese-file-小说 echo Ni hao > chinese-file-小说
echo chinese-file-小说 > chinese-name echo chinese-file-小说 > chinese-name
# The tests are run in whatever the default locale is. This is almost always UTF-8, # 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. # but in cmd on Windows it will be the non-Unicode CP850 locale.
./3307 chinese-file-小说 ./T3307 chinese-file-小说
...@@ -27,7 +27,7 @@ import System.Environment ...@@ -27,7 +27,7 @@ import System.Environment
-- Used by test2: -- Used by test2:
-- import System.Posix.IO -- import System.Posix.IO
fp = "2122-test" fp = "T2122-test"
main :: IO () main :: IO ()
main = do main = do
......
...@@ -3,11 +3,11 @@ import GHC.IO.Handle ...@@ -3,11 +3,11 @@ import GHC.IO.Handle
import GHC.IO.FD as FD import GHC.IO.FD as FD
main = do main = do
writeFile "4808.test" "This is some test data" writeFile "T4808.test" "This is some test data"
(fd, _) <- FD.openFile "4808.test" ReadWriteMode False (fd, _) <- FD.openFile "T4808.test" ReadWriteMode False
hdl <- mkDuplexHandle fd "4808.test" Nothing nativeNewlineMode hdl <- mkDuplexHandle fd "T4808.test" Nothing nativeNewlineMode
hClose hdl hClose hdl
(fd2, _) <- FD.openFile "4808.test" ReadWriteMode False (fd2, _) <- FD.openFile "T4808.test" ReadWriteMode False
print (fdFD fd == fdFD fd2) -- should be True print (fdFD fd == fdFD fd2) -- should be True
hGetLine hdl >>= print -- should fail with an exception hGetLine hdl >>= print -- should fail with an exception
T4808: T4808.test: hGetLine: illegal operation (handle is closed)
...@@ -3,7 +3,7 @@ import Foreign.Marshal.Alloc ...@@ -3,7 +3,7 @@ import Foreign.Marshal.Alloc
import System.IO import System.IO
main = do main = do
h <- openBinaryFile "4895.hs" ReadMode h <- openBinaryFile "T4895.hs" ReadMode
allocaBytes 10 $ \ptr -> hGetBuf h ptr 10 allocaBytes 10 $ \ptr -> hGetBuf h ptr 10
some <- allocaBytes 10 $ \ptr -> hGetBufSome h ptr 10 some <- allocaBytes 10 $ \ptr -> hGetBufSome h ptr 10
print some print some
...@@ -117,13 +117,13 @@ test('concio001.thr', skip, run_command, ['$MAKE -s --no-print-directory test.co ...@@ -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('concio002', reqlib('process'), compile_and_run, [''])
test('2122', extra_clean(['2122-test']), compile_and_run, ['']) test('T2122', extra_clean(['T2122-test']), compile_and_run, [''])
test('3307', test('T3307',
[if_msys(expect_broken(5599)), [if_msys(expect_broken(5599)),
extra_clean(['chinese-file-小说', 'chinese-name'])], extra_clean(['chinese-file-小说', 'chinese-name'])],
run_command, run_command,
['$MAKE -s --no-print-directory 3307-test']) ['$MAKE -s --no-print-directory T3307-test'])
test('4855', normal, compile_and_run, ['']) test('T4855', normal, compile_and_run, [''])
test('hSetEncoding001',extra_run_opts('hSetEncoding001.in'), compile_and_run, ['']) test('hSetEncoding001',extra_run_opts('hSetEncoding001.in'), compile_and_run, [''])
test('decodingerror001',normal, compile_and_run, ['']) test('decodingerror001',normal, compile_and_run, [''])
...@@ -157,5 +157,5 @@ test('T4144', normal, compile_and_run, ['']) ...@@ -157,5 +157,5 @@ test('T4144', normal, compile_and_run, [''])
test('encodingerror001', normal, compile_and_run, ['']) test('encodingerror001', normal, compile_and_run, [''])
test('4808', [exit_code(1), extra_clean(['4808.test'])], compile_and_run, ['']) test('T4808', [exit_code(1), extra_clean(['T4808.test'])], compile_and_run, [''])
test('4895', normal, compile_and_run, ['']) test('T4895', normal, compile_and_run, [''])
...@@ -114,9 +114,9 @@ test('weak001', normal, compile_and_run, ['']) ...@@ -114,9 +114,9 @@ test('weak001', normal, compile_and_run, [''])
# cat: write error: Permission denied # cat: write error: Permission denied
# Seems to be a known problem, e.g. # Seems to be a known problem, e.g.
# http://mingw-users.1079350.n2.nabble.com/Bug-re-Unicode-on-the-console-td3121717.html # 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('T5962', normal, compile_and_run, [''])
test('T7034', normal, compile_and_run, ['']) test('T7034', 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