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
67
68
69
70
71
72
73
74
|
test('signals001', normal, compile_and_run, ['-package unix -cpp'])
test('signals002', [], compile_and_run, ['-package unix'])
test('fileexist01', normal, compile_and_run, ['-package unix'])
# test #4512
test('forkprocess01', extra_ways(['threaded1_ls']), compile_and_run,
['-package unix'])
#
# user001 may fail due to this bug in glibc:
# http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=466647
#
# user001 may also fail on GNU/Linux when using a terminal emulator that doesn't
# write login records to /var/run/utmp. Running:
# $ logname
# should print your login name. If it doesn't, the getLoginName test in user001
# will fail, and that's why you are here. Try xterm.
#
# Ticket #1487. The glibc implementation of getlogin, which is called by
# getLoginName, requires that a terminal is connected to filedescriptor 0.
# See: https://sourceware.org/git/?p=glibc.git;a=blob;f=sysdeps/unix/getlogin.c
# Therefore, we use the no_stdin option, and have to omit the 'ghci' way,
# because it relies on redirecting stdin from file.
#
test('user001', [no_stdin, omit_ways(['ghci'])], compile_and_run, ['-package unix'])
test('resourceLimit', normal, compile_and_run, ['-package unix'])
x86FreeBsdFail = when(platform('i386-unknown-freebsd'), expect_fail)
test('queryfdoption01', [omit_ways(['ghci']), x86FreeBsdFail], compile_and_run,
['-package unix'])
test('getEnvironment01', x86FreeBsdFail, compile_and_run, ['-package unix'])
test('getEnvironment02', x86FreeBsdFail, compile_and_run, ['-package unix'])
test('getGroupEntryForName', [x86FreeBsdFail, exit_code(1)], compile_and_run,
['-package unix'])
test('getUserEntryForName', [x86FreeBsdFail, 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'])
test('T8108', normal, compile_and_run, ['-package unix'])
|
