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
|
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, expect_fail), compile_and_run,
['-package unix'])
test('getUserEntryForName', compose(conf, expect_fail), compile_and_run,
['-package unix'])
test('signals004', normal, compile_and_run, ['-package unix'])
test('fdReadBuf001', only_ways(['threaded1','threaded2','ghci']), compile_and_run, ['-package unix'])
|
