blob: 5cac5b53c7b11cdb59e0d7cfd31be7d2ae9855df (
plain) (
blame)
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
92
93
94
95
96
|
//: A simple test harness. To create new tests, define functions starting with
//: 'test_'. To run all tests so defined, run:
//: $ ./bootstrap test
//:
//: Every layer should include tests, and can reach into previous layers.
//: However, it seems like a good idea never to reach into tests from previous
//: layers. Every test should be a contract that always passes as originally
//: written, regardless of any later layers. Avoid writing 'temporary' tests
//: that are only meant to work until some layer.
:(before "End Types")
typedef void (*test_fn)(void);
:(before "Globals")
// move a global ahead into types that we can't generate an extern declaration for
const test_fn Tests[] = {
#include "test_list" // auto-generated; see 'build*' scripts
};
:(before "End Globals")
bool Run_tests = false;
bool Passed = true; // set this to false inside any test to indicate failure
:(before "End Includes")
#define CHECK(X) \
if (Passed && !(X)) { \
cerr << "\nF - " << __FUNCTION__ << "(" << __FILE__ << ":" << __LINE__ << "): " << #X << '\n'; \
Passed = false; \
return; /* Currently we stop at the very first failure. */ \
}
#define CHECK_EQ(X, Y) \
if (Passed && (X) != (Y)) { \
cerr << "\nF - " << __FUNCTION__ << "(" << __FILE__ << ":" << __LINE__ << "): " << #X << " == " << #Y << '\n'; \
cerr << " got " << (X) << '\n'; /* BEWARE: multiple eval */ \
Passed = false; \
return; /* Currently we stop at the very first failure. */ \
}
:(before "End Reset")
Passed = true;
:(before "End Commandline Parsing")
if (argc > 1 && is_equal(argv[1], "test")) {
Run_tests = true; --argc; ++argv; // shift 'test' out of commandline args
}
:(before "End Main")
if (Run_tests) {
// Test Runs
// we run some tests and then exit; assume no state need be maintained afterward
long num_failures = 0;
|