blob: 8222adcd6b9221babc152dc7845e71be8488dbde (
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
97
98
99
100
101
102
|
// A simple test harness. To create new tests define functions starting with
// 'test_'. To run all tests so defined, run:
// $ wart test
//
// So far it seems tasteful for layers to never ever reach back to modify
// previously-defined tests. Every test is a contract once written, and should
// pass as-is if it is included, regardless of how much later layers change
// the program. Avoid writing 'temporary' tests that only work with some
// subsets of the program.
:(before "End Types")
typedef void (*test_fn)(void);
:(before "End Globals")
const test_fn Tests[] = {
#include "test_list" // auto-generated; see makefile
};
bool Passed = true;
long Num_failures = 0;
#define CHECK(X) \
if (!(X)) { \
++Num_failures; \
cerr << "\nF " << __FUNCTION__ << "(" << __FILE__ << ":" << __LINE__ << "): " << #X << '\n'; \
Passed = false; \
return; \
}
#define CHECK_EQ(X, Y) \
if ((X) != (Y)) { \
++Num_failures; \
cerr << "\nF " << __FUNCTION__ << "(" << __FILE__ << ":" << __LINE__ << "): " << #X << " == " << #Y << '\n'; \
cerr << " got " << (X) << '\n'; /* BEWARE: multiple eval */ \
Passed = false; \
return; \
}
:(before "End Main")
if (argc == 2 && is_equal(argv[1], "test")) {
run_tests();
cerr << '\n';
if (Num_failures > 0)
cerr << Num_failures << " failure"
<< (Num_failures > 1 ? "s" : "")
<< '\n';
return 0;
}
// pass in a set of line numbers in test_file to run just those tests
if (argc > 2 && is_equal(argv[1], "test")) {
for (int i = 2; i < argc; ++i) {
run_test(to_int(argv[i])-1);
}
cerr << '\n';
if (Num_failures > 0)
cerr << Num_failures << " failure"
<< (Num_failures > 1 ? "s" : "")
<< '\n';
return 0;
}
:(code)
void run_tests() {
time_t t; time(&t);
cerr << "C tests: " << ctime(&t);
for (unsigned long i=0; i < sizeof(Tests)/sizeof(Tests[0]); ++i) {
run_test(i);
}
// End Tests
}
void run_test(int i) {
setup();
// End Test Setup
(*Tests[i])();
if (Passed) cerr << ".";
// Test Teardown
// End Test Teardown
}
bool is_equal(char* s, const char* lit) {
return strncmp(s, lit, strlen(lit)) == 0;
}
int to_int(string n) {
char* end = NULL;
int result = strtol(n.c_str(), &end, /*any base*/0);
assert(*end == '\0');
return result;
}
:(before "End Includes")
#include<iostream>
using std::istream;
using std::ostream;
using std::iostream;
using std::cin;
using std::cout;
using std::cerr;
#include<cstring>
|