Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
23517dea
Commit
23517dea
authored
Jan 25, 2013
by
ian@well-typed.com
Browse files
Rename some numeric tests: nnnn -> Tnnnn
parent
38c54bd2
Changes
18
Hide whitespace changes
Inline
Side-by-side
libraries/base/tests/IO/4808.stderr
deleted
100644 → 0
View file @
38c54bd2
4808: 4808.test: hGetLine: illegal operation (handle is closed)
libraries/base/tests/IO/Makefile
View file @
23517dea
...
...
@@ -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
T
3307-test
:
"
$(TEST_HC)
"
--make
-fforce-recomp
-v0
T
3307.hs
-o
T
3307
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-小说
./
T
3307 chinese-file-小说
libraries/base/tests/IO/2122.hs
→
libraries/base/tests/IO/
T
2122.hs
View file @
23517dea
...
...
@@ -27,7 +27,7 @@ import System.Environment
-- Used by test2:
-- import System.Posix.IO
fp
=
"2122-test"
fp
=
"
T
2122-test"
main
::
IO
()
main
=
do
...
...
libraries/base/tests/IO/3307.hs
→
libraries/base/tests/IO/
T
3307.hs
View file @
23517dea
File moved
libraries/base/tests/IO/3307.stdout
→
libraries/base/tests/IO/
T
3307.stdout
View file @
23517dea
File moved
libraries/base/tests/IO/4808.hs
→
libraries/base/tests/IO/
T
4808.hs
View file @
23517dea
...
...
@@ -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
"
T
4808.test"
"This is some test data"
(
fd
,
_
)
<-
FD
.
openFile
"
T
4808.test"
ReadWriteMode
False
hdl
<-
mkDuplexHandle
fd
"
T
4808.test"
Nothing
nativeNewlineMode
hClose
hdl
(
fd2
,
_
)
<-
FD
.
openFile
"4808.test"
ReadWriteMode
False
(
fd2
,
_
)
<-
FD
.
openFile
"
T
4808.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
0 → 100644
View file @
23517dea
T4808: T4808.test: hGetLine: illegal operation (handle is closed)
libraries/base/tests/IO/4808.stdout
→
libraries/base/tests/IO/
T
4808.stdout
View file @
23517dea
File moved
libraries/base/tests/IO/4855.hs
→
libraries/base/tests/IO/
T
4855.hs
View file @
23517dea
File moved
libraries/base/tests/IO/4855.stderr
→
libraries/base/tests/IO/
T
4855.stderr
View file @
23517dea
File moved
libraries/base/tests/IO/4895.hs
→
libraries/base/tests/IO/
T
4895.hs
View file @
23517dea
...
...
@@ -3,7 +3,7 @@ import Foreign.Marshal.Alloc
import
System.IO
main
=
do
h
<-
openBinaryFile
"4895.hs"
ReadMode
h
<-
openBinaryFile
"
T
4895.hs"
ReadMode
allocaBytes
10
$
\
ptr
->
hGetBuf
h
ptr
10
some
<-
allocaBytes
10
$
\
ptr
->
hGetBufSome
h
ptr
10
print
some
libraries/base/tests/IO/4895.stdout
→
libraries/base/tests/IO/
T
4895.stdout
View file @
23517dea
File moved
libraries/base/tests/IO/all.T
View file @
23517dea
...
...
@@ -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
('
T
2122
',
extra_clean
(['
T
2122-test
']),
compile_and_run
,
[''])
test
('
T
3307
',
[
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
T
3307-test
'])
test
('
T
4855
',
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
('
T
4808
',
[
exit_code
(
1
),
extra_clean
(['
T
4808.test
'])],
compile_and_run
,
[''])
test
('
T
4895
',
normal
,
compile_and_run
,
[''])
libraries/base/tests/4006.hs
→
libraries/base/tests/
T
4006.hs
View file @
23517dea
File moved
libraries/base/tests/4006.stdout
→
libraries/base/tests/
T
4006.stdout
View file @
23517dea
File moved
libraries/base/tests/5943.hs
→
libraries/base/tests/
T
5943.hs
View file @
23517dea
File moved
libraries/base/tests/5943.stdout
→
libraries/base/tests/
T
5943.stdout
View file @
23517dea
File moved
libraries/base/tests/all.T
View file @
23517dea
...
...
@@ -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
('
T
4006
',
if_msys
(
expect_fail
),
compile_and_run
,
[''])
test
('
5943
',
normal
,
compile_and_run
,
[''])
test
('
T
5943
',
normal
,
compile_and_run
,
[''])
test
('
T5962
',
normal
,
compile_and_run
,
[''])
test
('
T7034
',
normal
,
compile_and_run
,
[''])
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment