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
75
76
77
|
test('ghcilink001',
[extra_files(['TestLink.hs', 'f.c']),
when(ghc_dynamic(), expect_fail), # dynamic ghci can't load '.a's
unless(doing_ghci, skip),
req_interp], # JS backend doesn't use ghci
makefile_test, ['ghcilink001'])
test('ghcilink002', [extra_files(['TestLink.hs', 'f.c']),
when(unregisterised(), fragile(16085)),
unless(doing_ghci, skip),
unless(have_dynamic(), skip)],
makefile_test, ['ghcilink002'])
test('ghcilink003',
[ unless(doing_ghci, skip),
# from Big Sur onwards, we can't dlopen libstdc++.dylib
# anymore. Will produce:
# dlopen(libstdc++.dylib, 5): image not found
when(opsys('darwin'), fragile(16083)),
req_interp
], makefile_test, ['ghcilink003'])
test('ghcilink004',
[extra_files(['TestLink.hs', 'f.c']),
unless(doing_ghci, skip),
when(unregisterised(), fragile(16085)),
req_rts_linker],
makefile_test, ['ghcilink004'])
test('ghcilink005',
[extra_files(['TestLink.hs', 'f.c']),
when(unregisterised(), fragile(16085)),
unless(doing_ghci, skip),
req_dynamic_lib_support,
req_interp],
makefile_test, ['ghcilink005'])
test('ghcilink006',
[ unless(doing_ghci, skip),
# from Big Sur onwards, we can't dlopen libstdc++.dylib
# anymore. Will produce:
# dlopen(libstdc++.dylib, 5): image not found
when(opsys('darwin'), fragile(16083)),
req_interp
], makefile_test, ['ghcilink006'])
test('T3333',
[unless(doing_ghci, skip),
when(unregisterised(), fragile(17018)),
js_broken(22359)],
makefile_test, ['T3333'])
test('T11531',
[extra_files(['T11531.hs', 'T11531.c', 'T11531.h']),
unless(doing_ghci, skip),
unless(opsys('linux'), skip),
req_c,
req_interp,
fragile(11531)],
makefile_test, ['T11531'])
test('T14708',
[extra_files(['T14708.hs', 'add.c']),
unless(doing_ghci, skip),
unless(ghc_dynamic(), skip)],
makefile_test, ['T14708'])
test('T15729',
[extra_files(['T15729.hs', 'T15729.c']),
unless(doing_ghci, skip),
js_broken(22359)],
makefile_test, ['T15729'])
test('big-obj', [extra_files(['big-obj-c.c', 'big-obj.hs']),
unless(doing_ghci, skip), unless(opsys('mingw32'), skip)],
makefile_test, ['big-obj'])
|
