1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
if config.platform == 'i386-unknown-mingw32':
conf = skip
else:
conf = normal
test('signals001', conf, compile_and_run, ['-package unix -cpp'])
test('signals002', compose(only_compiler_types(['ghc']), conf),
compile_and_run, ['-package unix'])
test('fileexist01', conf, compile_and_run, ['-package unix'])
test('forkprocess01', [ only_compiler_types(['ghc']),
extra_ways(['threaded1_ls']), # test #4512
conf ],
compile_and_run, ['-package unix'])
#
# user001 may fail due to this bug in glibc:
# http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=466647
#
test('user001', conf, compile_and_run, ['-package unix'])
test('resourceLimit', conf, compile_and_run, ['-package unix'])
if config.platform == 'i386-unknown-freebsd':
conf = expect_fail
test('queryfdoption01', compose(omit_ways(['ghci']), compose(only_compiler_types(['ghc']), conf)),
compile_and_run, ['-package unix'])
test('getEnvironment01', conf, compile_and_run, ['-package unix'])
test('getEnvironment02', conf, compile_and_run, ['-package unix'])
test('getGroupEntryForName', compose(conf, exit_code(1)), compile_and_run,
['-package unix'])
test('getUserEntryForName', compose(conf, exit_code(1)), compile_and_run,
['-package unix'])
test('signals004', normal, compile_and_run, ['-package unix'])
if ('threaded1' in config.run_ways):
only_threaded_ways = only_ways(['ghci','threaded1','threaded2'])
else:
only_threaded_ways = skip
test('fdReadBuf001', only_threaded_ways, compile_and_run, ['-package unix'])
test('fileStatus',
extra_clean(['dir', 'regular', 'link-dir', 'link-regular']),
compile_and_run,
['-package unix'])
test('fileStatusByteString',
extra_clean(['dir', 'regular', 'link-dir', 'link-regular']),
compile_and_run,
['-package unix'])
test('T1185', normal, compile_and_run, ['-package unix'])
# This test fails for me on x86/Linux with a "does not exist" error.
# Running with strace shows it is trying to talk to winbindd (part of
# Samba), so I think the failure has nothing to do with GHC. Also it
# works on a different machine that doesn't have Samba installed.
# --SDM 18/05/2010
test('T3816', normal, compile_and_run, ['-package unix'])
test('processGroup001', normal, compile_and_run, ['-package unix'])
test('processGroup002', normal, compile_and_run, ['-package unix'])
test('executeFile001', omit_ways(prof_ways), compile_and_run, ['-package unix'])
|
