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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
/* Automatically generated file - do not change manually */
/* Create or change source files named suite_*.c */
/* Generate this file using "make" */
divert(-1)
# From now on, M4 comments start with a ¢ symbol (my five cents):
changecom(`¢',
)dnl
¢ Replace provisional header file testsuite_facade by final version
¢ The include stmt will appear multiple times in the target file
¢ (once for each suite_*.c source file), which is unavoidable
¢ But there is no problem, due to the IFNDEF TESTSUITE_FINAL_H construct
define(testsuite_facade,`testsuite_final')
¢Test for numeric (with specific message as argument)§
define(`TEST_NUMERIC',
`ifelse(regexp(`$1',`^[0-9]+$'),`-1',
`errprint(__file__:__line__:` $2
')m4exit(1)')')dnl
¢ TESTSUITE - generates a wrapping function for test cases
define(`TESTSUITE',`dnl
ifdef(`SUITE_ID_'$1`',`errprint(__file__:__line__:` Error: suite id $1 already used
')m4exit(1)')dnl
TEST_NUMERIC($1,`Error: suite id $1 is not a positive integer')
define(`SUITE_ID_'$1`')dnl
define(`SUITE_NO',`$1')dnl
define(`SUITE_DESCR',$2)dnl
define(`HAS_SETUP',`0')dnl
define(`HAS_TEARDOWN',`0')dnl
void testsuite_$1(test_context *ctx) {divert(1)
open_testsuite(SUITE_NO,patsubst(`regexp(`$*',`\(".*"\)',`\1')',`,',`, '),ctx);
divert(2)dnl
if (is_suite_selected(SUITE_NO,ctx)) {
strcpy(ctx->current.file,"__file__");
testsuite_`'SUITE_NO`'(ctx);
close_testsuite(ctx);
}
divert(0)')
¢ We need macro END_TESTSUITE to explicitly finish the testsuite
define(`END_TESTSUITE',`undivert(3)undivert(1)
}')
¢ SETUP and TEARDOWN are optional
define(`SETUP',`define(`HAS_SETUP',`1')divert(3)void setup_`'SUITE_NO`'()')
define(`TEARDOWN',`define(`HAS_TEARDOWN',`1')divert(3)void teardown_`'SUITE_NO`'()')
¢ TESTCASE - a single test function
¢ - writes its own call in stream divert(1)
¢ - generates its declaration in standard stream divert(0)
define(`TESTCASE',`divert(1)
ifdef(`TESTCASE_ID_'SUITE_NO`_'$1`',`errprint(__file__:__line__:` Error: ID $1 already used in suite 'SUITE_NO `
')m4exit(1)')define(`TESTCASE_ID_'SUITE_NO`_'$1`')dnl
TEST_NUMERIC($1,` Error: testcase id $1 in suite 'SUITE_NO` is not a positive integer')
if (is_testcase_selected( $1, ctx)) {
open_testcase($1,patsubst(`regexp(`$*',`\(".*"\)',`\1')',`,',`, '),ctx);
ctx->current.iteration.id = 0;
do {
ctx->current.iteration.id++;
open_iteration( ctx->current.iteration.id, ctx );
if (is_iteration_selected(ctx)) {
ifelse(HAS_SETUP,`1',`setup_`'SUITE_NO`'();')
testcase_`'SUITE_NO`'_$1(ctx);
ifelse(HAS_TEARDOWN,`1',`teardown_`'SUITE_NO`'();')
close_iteration(ctx);
}
} while (has_more_iterations(ctx));
close_testcase(ctx);
}
divert(0)void testcase_`'SUITE_NO`'_$1(test_context *ctx)')
¢ CHECK_xx macro family
¢ - macro is necessary, since the symbol is needed twice: As a string "$1",
¢ AND as its data object $1
define(`CHECK_S',`check_s($1,"regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`CHECK_I',`check_i($1,"regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`CHECK_D',`check_d($1,"regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`CHECK_DD',`check_dd($1,$2,"regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`CHECK_II',`check_ii($1,$2,"regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`CHECK_EQUALS_S',`check_equals_s($1,$2,"regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`CHECK_EQUALS_I',`check_equals_i($1,$2,"regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`CHECK_EQUALS_D',`check_equals_d($1,$2,"regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`CHECK_EQUALS_II',`check_equals_ii($1,$2,regexp(`$*',`[^\,]*\,[^\,]*\,\(.*\)',`\1'),"regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`CHECK_EQUALS_DD',`check_equals_dd($1,$2,regexp(`$*',`[^\,]*\,[^\,]*\,\(.*\)',`\1'),"regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`GET_I',`get_i("regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`GET_D',`get_d("regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`GET_P',`get_p("regexp($1,`\(.*[^ ]\)',`\1')",ctx)')
define(`GET_S',`strcpy($1,get_s("regexp($1,`\(.*[^ ]\)',`\1')",ctx))')
divert(0)dnl
|
