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
|
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', compose(only_compiler_types(['ghc']),
compose(expect_fail_for(['threaded2']), 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('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('1185', [ expect_fail_for(['threaded2']) ],
compile_and_run, ['-package unix'])
|