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
|
setTestOpts(req_dynamic_lib_support)
test('load_short_name', [ extra_files(['A.c'])
, unless(doing_ghci, skip)
, req_c
],
makefile_test, ['load_short_name'])
test('T1407',
[extra_files(['A.c']),
unless(doing_ghci, skip),
pre_cmd('$MAKE -s --no-print-directory compile_libT1407'),
extra_hc_opts('-L"$PWD/T1407dir"'),
js_broken(22359)],
makefile_test, [])
test('T3242',
[unless(doing_ghci, skip), unless(opsys('mingw32'), skip)],
makefile_test, ['T3242'])
test('T10955',
[extra_files(['A.c', 'B.c', 'A.def', 'B.def']),
unless(doing_ghci, skip),
unless(opsys('mingw32'), skip),
pre_cmd('$MAKE -s --no-print-directory compile_libAB_dep'),
extra_hc_opts('-L. -L./bin_dep')],
ghci_script, ['T10955.script'])
test('T10955dyn',
[extra_files(['A.c', 'B.c', 'A.def', 'B.def'])
, js_broken(22351) # dynamic linking not supported by the JS backend
],
makefile_test, ['compile_libAB_dyn'])
test('T10458',
[extra_files(['A.c']),
unless(doing_ghci, skip),
pre_cmd('$MAKE -s --no-print-directory compile_libT10458'),
extra_hc_opts('-L"$PWD/T10458dir" -lAS')],
ghci_script, ['T10458.script'])
test('T11072gcc', [extra_files(['A.c', 'T11072.hs']),
expect_broken(18718),
unless(doing_ghci, skip), unless(opsys('mingw32'), skip)],
makefile_test, ['compile_libAS_impl_gcc'])
test('T11072msvc', [extra_files(['A.c', 'T11072.hs', 'libAS.def', 'i686/', 'x86_64/']),
expect_broken(18718),
unless(doing_ghci, skip), unless(opsys('mingw32'), skip)],
makefile_test, ['compile_libAS_impl_msvc'])
test('T13606', [unless(doing_ghci, skip), unless(opsys('mingw32'), skip),
exit_code(0)],
makefile_test, ['T13606'])
test('T3372',
[unless(doing_ghci, skip),
req_rts_linker,
extra_run_opts('"' + config.libdir + '"'),
unless(config.have_RTS_linker, skip),
# Concurrent GHC sessions is fragile on Windows since we must lock the
# package database even for read-only access.
# See Note [Locking package database on Windows] in GHC.Unit.Database
when(opsys('mingw32'), fragile(16773))],
compile_and_run, ['-package ghc'])
|
