Typo
[packages/base.git] / tests / all.T
1
2 test('readFloat', exit_code(1), compile_and_run, [''])
3 test('enumDouble', normal, compile_and_run, [''])
4 test('enumRatio', normal, compile_and_run, [''])
5 test('tempfiles', normal, compile_and_run, [''])
6 test('fixed', normal, compile_and_run, [''])
7 test('quotOverflow', normal, compile_and_run, [''])
8 test('assert', exit_code(1), compile_and_run, ['-fno-ignore-asserts'])
9 test('CPUTime001', normal, compile_and_run, [''])
10 test('readLitChar',   normal, compile_and_run, [''])
11 test('unicode001',
12      when(platform('i386-unknown-openbsd'), expect_fail),
13      compile_and_run,
14      [''])
15 test('unicode002',
16      when(platform('i386-unknown-openbsd'), expect_fail),
17      compile_and_run,
18      [''])
19 test('data-fixed-show-read', normal, compile_and_run, [''])
20 test('showDouble', normal, compile_and_run, [''])
21 test('readDouble001', normal, compile_and_run, [''])
22 test('readInteger001', normal, compile_and_run, [''])
23 test('readFixed001', normal, compile_and_run, [''])
24 test('lex001', normal, compile_and_run, [''])
25 test('take001', extra_run_opts('1'), compile_and_run, [''])
26 test('genericNegative001', extra_run_opts('-1'), compile_and_run, [''])
27 test('ix001', normal, compile_and_run, [''])
28
29 # need to add -K64m to the compiler opts, so that GHCi gets it too
30 test('ioref001',
31      [when(fast(), skip),extra_run_opts('+RTS -K64m -RTS')],
32      compile_and_run,
33      ['+RTS -K64m -RTS'])
34
35 test('echo001', set_stdin("echo001.hs"), compile_and_run, [''])
36
37 test('hTell001', normal, compile_and_run, [''])
38
39 test('hTell002', normal, compile_and_run, [''])
40
41 test('performGC001', normal, compile_and_run, [''])
42
43 # optimisation screws up this test because some of the traces get commoned up
44 test('trace001', normal, compile_and_run, [''])
45
46 test('hGetBuf002', normal, compile_and_run, [''])
47 test('hGetBuf003', normal, compile_and_run, [''])
48 test('hPutBuf001', normal, compile_and_run, [''])
49 test('hPutBuf002', extra_clean(['hPutBuf002.out']), compile_and_run, [''])
50
51 test('char001',         normal, compile_and_run, [''])
52 test('char002',         normal, compile_and_run, [''])
53
54 test('cstring001',      normal, compile_and_run, [''])
55
56 test('length001',
57      # length001 depends on a RULE being applied, and without -O takes
58      # excessive amounts of stack space. So we specifically set a low
59      # stack limit and mark it as failing under a few conditions.
60      [extra_run_opts('+RTS -K8m -RTS'),
61      expect_fail_for(['normal', 'threaded1', 'llvm'])],
62      compile_and_run, [''])
63
64 test('ratio001',        normal, compile_and_run, [''])
65
66 test('rand001',         reqlib('random'), compile_and_run, [''])
67 test('reads001',                normal, compile_and_run, [''])
68 test('show001',         normal, compile_and_run, [''])
69 test('text001',         normal, compile_and_run, [''])
70
71 test('tup001',          normal, compile_and_run, [''])
72
73 test('addr001',         normal, compile_and_run, [''])
74 test('dynamic001',      normal, compile_and_run, [''])
75 test('dynamic002',      normal, compile_and_run, [''])
76 test('dynamic003',      extra_run_opts('+RTS -K32m -RTS'), compile_and_run, [''])
77 test('dynamic004',      omit_ways(['normal', 'threaded1', 'ghci']), compile_and_run, [''])
78 test('dynamic005',      normal, compile_and_run, [''])
79 test('enum01',          when(fast(), skip), compile_and_run, ['-cpp'])
80 test('enum02',          when(fast(), skip), compile_and_run, ['-cpp'])
81 test('enum03',          when(fast(), skip), compile_and_run, ['-cpp'])
82 test('enum04',          normal, compile_and_run, [''])
83 test('exceptionsrun001',        normal, compile_and_run, [''])
84 test('exceptionsrun002',        normal, compile_and_run, [''])
85 test('list001'  ,       when(fast(), skip), compile_and_run, [''])
86 test('list002', when(fast(), skip), compile_and_run, [''])
87 test('list003', when(fast(), skip), compile_and_run, [''])
88
89 test('memo001',
90      [extra_run_opts('+RTS -A10k -RTS'),
91       extra_clean(['Memo1.hi', 'Memo1.o'])],
92      multimod_compile_and_run,
93      ['memo001',''])
94
95 test('memo002',
96      [extra_run_opts('20'),
97       extra_clean(['Memo2.hi', 'Memo2.o'])],
98         multimod_compile_and_run, ['memo002',''])
99
100 test('packedstring001', reqlib('packedstring'), compile_and_run, ['-package packedstring'])
101
102 test('stableptr001',
103      [when(fast(), skip), extra_run_opts('+RTS -K8m -RTS')],
104      compile_and_run, [''])
105 test('stableptr003', normal, compile_and_run, [''])
106 test('stableptr004', extra_run_opts('+RTS -K4m -RTS'), compile_and_run, [''])
107 test('stableptr005', normal, compile_and_run, [''])
108
109 test('weak001', normal, compile_and_run, [''])
110
111 # In the 65001 codepage, we can't even cat the expected output on msys:
112 #     $ cat 4006.stdout
113 #     It works here
114 #     cat: write error: Permission denied
115 # Seems to be a known problem, e.g.
116 #     http://mingw-users.1079350.n2.nabble.com/Bug-re-Unicode-on-the-console-td3121717.html
117 test('T4006', when(msys(), expect_fail), compile_and_run, [''])
118
119 test('T5943', normal, compile_and_run, [''])
120 test('T5962', normal, compile_and_run, [''])
121 test('T7034', normal, compile_and_run, [''])
122
123 test('qsem001', normal, compile_and_run, [''])
124 test('qsemn001', normal, compile_and_run, [''])
125
126 test('T7457', normal, compile_and_run, [''])
127
128 test('T7773', when(opsys('mingw32'), skip), compile_and_run, [''])
129 # Andreas says that T7773 will not (and should not) work on Windows
130
131 # Tests for kind-polymorphic Category
132 test('CatPairs', normal, compile, [''])
133 test('CatEntail', normal, compile, [''])
134
135 test('T7653', normal, compile_and_run, [''])
136 test('T7787', normal, compile_and_run, [''])
137
138 test('topHandler01', when(opsys('mingw32'), skip), compile_and_run, [''])
139 test('topHandler02',
140      [when(opsys('mingw32'), skip),
141       omit_ways(['ghci']),
142       # Irritatingly, the test driver calls the programs via a shell, and
143       # depending on the shell, they can add their own "helpful" commentary,
144       # pretty printing the name of the signal that killed the process. So we
145       # ignore the stdout here, we only care about the exit code (which itself
146       # is messed up because of the shell, using 128+sig encoding)
147       ignore_output,
148       exit_code(130)  # actually signal 2 SIGINT
149      ], compile_and_run, [''])
150 test('topHandler03',
151      [when(opsys('mingw32'), skip),
152       # As above, shells, grrr.
153       ignore_output,
154       exit_code(143)  # actually signal 15 SIGTERM
155      ], compile_and_run, [''])
156
157
158 test('T8766',
159         [ stats_num_field('bytes allocated', (16828144, 5)),
160         # with GHC-7.6.3: 83937384 (but faster execution than the next line)
161         # before:         58771216 (without call-arity-analysis)
162         # expected value: 16828144 (2014-01-14)
163         only_ways(['normal'])],
164       compile_and_run,
165       ['-O'])