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