Commit ff813a6e authored by ian@well-typed.com's avatar ian@well-typed.com

Rename some numeric tests: nnnn -> Tnnnn

parent 3d0f4c73
1357.hs:5:1:
T1357.hs:5:1:
Warning: possible missing & in foreign import of FunPtr
......@@ -33,8 +33,8 @@ test('cc013', normal, compile, [''])
test('cc014', normal, compile, [''])
test('ffi-deriv1', normal, compile, [''])
test('1357', normal, compile, [''])
test('3624', normal, compile, [''])
test('3742', normal, compile, [''])
test('T1357', normal, compile, [''])
test('T3624', normal, compile, [''])
test('T3742', normal, compile, [''])
test('cc015', normal, compile, [''])
test('cc016', normal, compile, [''])
7170: thread blocked indefinitely in an MVar operation
......@@ -5,20 +5,20 @@ include $(TOP)/mk/test.mk
ffi018_ghci_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c ffi018_ghci_c.c
1288_ghci_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c 1288_ghci_c.c
T1288_ghci_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c T1288_ghci_c.c
2276_ghci_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c 2276_ghci_c.c
T2276_ghci_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c T2276_ghci_c.c
ffi002_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c ffi002.hs
5402_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c 5402.hs
T5402_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c T5402.hs
5594_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c 5594.hs
T5594_setup :
'$(TEST_HC)' $(TEST_HC_OPTS) -c T5594.hs
.PHONY: Capi_Ctype_001
Capi_Ctype_001:
......
#include "2594_c.h"
#include "T2594_c.h"
void call8 (funtype8 fun) { fun(-1); }
void call16(funtype16 fun) { fun(-1); }
......
#include "HsFFI.h"
#include <stdio.h>
#include <stdlib.h>
#include "5402_stub.h"
#include "T5402_stub.h"
int main (int argc, char *argv[])
{
......
#include <stdio.h>
#include "5594_stub.h"
#include "T5594_stub.h"
#include "HsFFI.h"
......
T7170: thread blocked indefinitely in an MVar operation
......@@ -116,30 +116,30 @@ test('ffi018_ghci', [ only_ways(['ghci']),
test('ffi019', normal, compile_and_run, [''])
# This one originally failed only GHCi, but doesn't hurt to test all ways.
test('1679', normal, compile_and_run, [''])
test('1288', [ omit_ways(['ghci']),
extra_clean(['1288_c.o']) ],
compile_and_run, ['1288_c.c'])
test('1288_ghci', [ only_ways(['ghci']),
cmd_prefix('$MAKE --no-print-directory 1288_ghci_setup && '),
extra_clean(['1288_ghci_c.o']) ],
compile_and_run, ['1288_ghci_c.o'])
test('2276', [ omit_ways(['ghci']),
extra_clean(['2276_c.o']) ],
compile_and_run, ['2276_c.c'])
test('2276_ghci', [ only_ways(['ghci']),
cmd_prefix('$MAKE --no-print-directory 2276_ghci_setup && '),
extra_clean(['2276_ghci_c.o']) ],
compile_and_run, ['-fobject-code 2276_ghci_c.o'])
test('2469', normal, compile_and_run, ['-optc-std=gnu99'])
test('2594',
[extra_clean(['2594_c.o']), omit_ways(['ghci'])],
test('T1679', normal, compile_and_run, [''])
test('T1288', [ omit_ways(['ghci']),
extra_clean(['T1288_c.o']) ],
compile_and_run, ['T1288_c.c'])
test('T1288_ghci', [ only_ways(['ghci']),
cmd_prefix('$MAKE --no-print-directory T1288_ghci_setup && '),
extra_clean(['T1288_ghci_c.o']) ],
compile_and_run, ['T1288_ghci_c.o'])
test('T2276', [ omit_ways(['ghci']),
extra_clean(['T2276_c.o']) ],
compile_and_run, ['T2276_c.c'])
test('T2276_ghci', [ only_ways(['ghci']),
cmd_prefix('$MAKE --no-print-directory T2276_ghci_setup && '),
extra_clean(['T2276_ghci_c.o']) ],
compile_and_run, ['-fobject-code T2276_ghci_c.o'])
test('T2469', normal, compile_and_run, ['-optc-std=gnu99'])
test('T2594',
[extra_clean(['T2594_c.o']), omit_ways(['ghci'])],
compile_and_run,
['2594_c.c'])
['T2594_c.c'])
test('fptr01', [ omit_ways(['ghci']), extra_clean(['fptr01_c.o']) ],
compile_and_run, ['fptr01_c.c'])
......@@ -149,7 +149,7 @@ test('fptrfail01', [ compose(omit_ways(['ghci']), exit_code(1)),
extra_clean(['fptrfail01_c.o']) ],
compile_and_run, ['fptrfail01_c.c'])
test('2917a', normal, compile_and_run, [''])
test('T2917a', normal, compile_and_run, [''])
# omit prof ways, because this test causes the RTS to exit (correctly)
# without generating profiling information.
......@@ -163,30 +163,30 @@ test('ffi022', normal, compile_and_run, [''])
if config.os == 'mingw32':
# This test needs a larger C stack than we get by default on Windows
flagsFor4038 = ['-optl-Wl,--stack,10485760']
flagsForT4038 = ['-optl-Wl,--stack,10485760']
else:
flagsFor4038 = ['']
test('4038', normal, compile_and_run, flagsFor4038)
test('4221', [ omit_ways(['ghci']), extra_clean(['4221_c.o']) ],
compile_and_run, ['4221_c.c'])
test('5402', [ omit_ways(['ghci']),
exit_code(42),
extra_clean(['5402_main.o']),
# The 5402_setup hack is to ensure that we generate
# 5402_stub.h before compiling 5402_main.c, which
# needs it.
compile_cmd_prefix('$MAKE --no-print-directory 5402_setup && ') ],
compile_and_run, ["-no-hs-main 5402_main.c"])
test('5594', [ omit_ways(['ghci']),
extra_clean(['5594_c.o']),
compile_cmd_prefix('$MAKE --no-print-directory 5594_setup && ') ],
# The 5594_setup hack is to ensure that we generate
# 5594_stub.h before compiling 5594_c.c, which
# needs it.
compile_and_run, ['5594_c.c -no-hs-main'])
flagsForT4038 = ['']
test('T4038', normal, compile_and_run, flagsForT4038)
test('T4221', [ omit_ways(['ghci']), extra_clean(['T4221_c.o']) ],
compile_and_run, ['T4221_c.c'])
test('T5402', [ omit_ways(['ghci']),
exit_code(42),
extra_clean(['T5402_main.o']),
# The T5402_setup hack is to ensure that we generate
# T5402_stub.h before compiling T5402_main.c, which
# needs it.
compile_cmd_prefix('$MAKE --no-print-directory T5402_setup && ') ],
compile_and_run, ["-no-hs-main T5402_main.c"])
test('T5594', [ omit_ways(['ghci']),
extra_clean(['T5594_c.o']),
compile_cmd_prefix('$MAKE --no-print-directory T5594_setup && ') ],
# The T5594_setup hack is to ensure that we generate
# T5594_stub.h before compiling T5594_c.c, which
# needs it.
compile_and_run, ['T5594_c.c -no-hs-main'])
test('Capi_Ctype_001',
extra_clean(['Capi_Ctype_A_001.o', 'Capi_Ctype_A_001.hi',
......@@ -211,7 +211,7 @@ test('capi_value',
compile_and_run,
['capi_value_c.c'])
test('7170', exit_code(1), compile_and_run, [''])
test('T7170', exit_code(1), compile_and_run, [''])
test('T4012',
[extra_clean(['T4012_A.hi', 'T4012_A.o', 'T4012_B.hi', 'T4012_B.o']),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment