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
|
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'])
test('user001', 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'])
|