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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
|
#include "acutest.h"
#include "../src_c/cell.h"
void test_cell_number() {
lsp_cell_t c[4];
lsp_cell_set_number(c, 0);
TEST_ASSERT(lsp_cell_is_number(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(c[0] == 0x0000);
TEST_ASSERT(lsp_cell_get_number(c) == 0);
lsp_cell_set_number(c, 1);
TEST_ASSERT(lsp_cell_is_number(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(c[0] == 0x0001);
TEST_ASSERT(lsp_cell_get_number(c) == 1);
lsp_cell_set_number(c, 0x0fff);
TEST_ASSERT(lsp_cell_is_number(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(c[0] == 0x0fff);
TEST_ASSERT(lsp_cell_get_number(c) == 0x0fff);
lsp_cell_set_number(c, 0x1fff);
TEST_ASSERT(lsp_cell_is_number(c));
TEST_ASSERT(lsp_cell_get_size(c) == 2);
TEST_ASSERT(c[0] == 0x2000);
TEST_ASSERT(c[1] == 0x1fff);
TEST_ASSERT(lsp_cell_get_number(c) == 0x1fff);
lsp_cell_set_number(c, 0xffff);
TEST_ASSERT(lsp_cell_is_number(c));
TEST_ASSERT(lsp_cell_get_size(c) == 2);
TEST_ASSERT(c[0] == 0x2003);
TEST_ASSERT(c[1] == 0x3fff);
TEST_ASSERT(lsp_cell_get_number(c) == 0xffff);
lsp_cell_set_number(c, 0x7fffffff);
TEST_ASSERT(lsp_cell_is_number(c));
TEST_ASSERT(lsp_cell_get_size(c) == 3);
TEST_ASSERT(c[0] == 0x2007);
TEST_ASSERT(c[1] == 0x7fff);
TEST_ASSERT(c[2] == 0x3fff);
TEST_ASSERT(lsp_cell_get_number(c) == 0x7fffffff);
lsp_cell_set_number(c, -1);
TEST_ASSERT(lsp_cell_is_number(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(c[0] == 0x1fff);
TEST_ASSERT(lsp_cell_get_number(c) == -1);
lsp_cell_set_number(c, -0x1000);
TEST_ASSERT(lsp_cell_is_number(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(c[0] == 0x1000);
TEST_ASSERT(lsp_cell_get_number(c) == -0x1000);
lsp_cell_set_number(c, -0x2fff);
TEST_ASSERT(lsp_cell_is_number(c));
TEST_ASSERT(lsp_cell_get_size(c) == 2);
TEST_ASSERT(c[0] == 0x3fff);
TEST_ASSERT(c[1] == 0x1001);
TEST_ASSERT(lsp_cell_get_number(c) == -0x2fff);
c[0] = 0x4000;
TEST_ASSERT(!lsp_cell_is_number(c));
}
void test_cell_pair() {
lsp_cell_t c[2];
lsp_cell_set_pair(c, 1, 2);
TEST_ASSERT(lsp_cell_is_pair(c));
TEST_ASSERT(lsp_cell_get_size(c) == 2);
TEST_ASSERT(lsp_cell_get_pair_first(c) == 1);
TEST_ASSERT(lsp_cell_get_pair_second(c) == 2);
lsp_cell_set_pair(c, 0x3fff, 0x0000);
TEST_ASSERT(lsp_cell_is_pair(c));
TEST_ASSERT(lsp_cell_get_size(c) == 2);
TEST_ASSERT(lsp_cell_get_pair_first(c) == 0x3fff);
TEST_ASSERT(lsp_cell_get_pair_second(c) == 0x0000);
lsp_cell_set_pair(c, 0x0000, 0x3fff);
TEST_ASSERT(lsp_cell_is_pair(c));
TEST_ASSERT(lsp_cell_get_size(c) == 2);
TEST_ASSERT(lsp_cell_get_pair_first(c) == 0x0000);
TEST_ASSERT(lsp_cell_get_pair_second(c) == 0x3fff);
}
void test_cell_string() {
lsp_cell_t c[4];
lsp_cell_set_string(c, 0);
TEST_ASSERT(lsp_cell_is_string(c));
TEST_ASSERT(lsp_cell_is_string_or_symbol(c));
TEST_ASSERT(!lsp_cell_is_symbol(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(lsp_cell_get_string_len(c) == 0);
lsp_cell_set_string(c, 1);
TEST_ASSERT(lsp_cell_is_string(c));
TEST_ASSERT(lsp_cell_is_string_or_symbol(c));
TEST_ASSERT(!lsp_cell_is_symbol(c));
TEST_ASSERT(lsp_cell_get_size(c) == 2);
TEST_ASSERT(lsp_cell_get_string_len(c) == 1);
lsp_cell_set_string_data(c, 0, 0xff);
TEST_ASSERT(c[1] == 0x7f80);
TEST_ASSERT(lsp_cell_get_string_data(c, 0) == 0xff);
lsp_cell_set_string(c, 2);
TEST_ASSERT(lsp_cell_is_string(c));
TEST_ASSERT(lsp_cell_is_string_or_symbol(c));
TEST_ASSERT(!lsp_cell_is_symbol(c));
TEST_ASSERT(lsp_cell_get_size(c) == 3);
TEST_ASSERT(lsp_cell_get_string_len(c) == 2);
lsp_cell_set_string_data(c, 0, 0x00);
lsp_cell_set_string_data(c, 1, 0xff);
TEST_ASSERT(c[1] == 0x7f);
TEST_ASSERT(c[2] == 0x4000);
TEST_ASSERT(lsp_cell_get_string_data(c, 0) == 0x00);
TEST_ASSERT(lsp_cell_get_string_data(c, 1) == 0xff);
}
void test_cell_symbol() {
lsp_cell_t c[4];
lsp_cell_set_symbol(c, 0);
TEST_ASSERT(lsp_cell_is_symbol(c));
TEST_ASSERT(lsp_cell_is_string_or_symbol(c));
TEST_ASSERT(!lsp_cell_is_string(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(lsp_cell_get_symbol_len(c) == 0);
lsp_cell_set_symbol(c, 1);
TEST_ASSERT(lsp_cell_is_symbol(c));
TEST_ASSERT(lsp_cell_is_string_or_symbol(c));
TEST_ASSERT(!lsp_cell_is_string(c));
TEST_ASSERT(lsp_cell_get_size(c) == 2);
TEST_ASSERT(lsp_cell_get_symbol_len(c) == 1);
lsp_cell_set_symbol_name(c, 0, 0xff);
TEST_ASSERT(c[1] == 0x7f80);
TEST_ASSERT(lsp_cell_get_symbol_name(c, 0) == 0xff);
lsp_cell_set_symbol(c, 2);
TEST_ASSERT(lsp_cell_is_symbol(c));
TEST_ASSERT(lsp_cell_is_string_or_symbol(c));
TEST_ASSERT(!lsp_cell_is_string(c));
TEST_ASSERT(lsp_cell_get_size(c) == 3);
TEST_ASSERT(lsp_cell_get_symbol_len(c) == 2);
lsp_cell_set_symbol_name(c, 0, 0x00);
lsp_cell_set_symbol_name(c, 1, 0xff);
TEST_ASSERT(c[1] == 0x7f);
TEST_ASSERT(c[2] == 0x4000);
TEST_ASSERT(lsp_cell_get_symbol_name(c, 0) == 0x00);
TEST_ASSERT(lsp_cell_get_symbol_name(c, 1) == 0xff);
}
void test_cell_builtin_function() {
lsp_cell_t c[1];
lsp_cell_set_builtin_function(c, 0);
TEST_ASSERT(lsp_cell_is_builtin_function(c));
TEST_ASSERT(lsp_cell_is_builtin(c));
TEST_ASSERT(!lsp_cell_is_builtin_syntax(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(lsp_cell_get_builtin_index(c) == 0);
lsp_cell_set_builtin_function(c, 123);
TEST_ASSERT(lsp_cell_is_builtin_function(c));
TEST_ASSERT(lsp_cell_is_builtin(c));
TEST_ASSERT(!lsp_cell_is_builtin_syntax(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(lsp_cell_get_builtin_index(c) == 123);
}
void test_cell_builtin_syntax() {
lsp_cell_t c[1];
lsp_cell_set_builtin_syntax(c, 0);
TEST_ASSERT(lsp_cell_is_builtin_syntax(c));
TEST_ASSERT(lsp_cell_is_builtin(c));
TEST_ASSERT(!lsp_cell_is_builtin_function(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(lsp_cell_get_builtin_index(c) == 0);
lsp_cell_set_builtin_syntax(c, 123);
TEST_ASSERT(lsp_cell_is_builtin_syntax(c));
TEST_ASSERT(lsp_cell_is_builtin(c));
TEST_ASSERT(!lsp_cell_is_builtin_function(c));
TEST_ASSERT(lsp_cell_get_size(c) == 1);
TEST_ASSERT(lsp_cell_get_builtin_index(c) == 123);
}
void test_cell_function() {
lsp_cell_t c[4];
lsp_cell_set_function(c, 1, 2, 3);
TEST_ASSERT(lsp_cell_is_function(c));
TEST_ASSERT(lsp_cell_is_function_or_syntax(c));
TEST_ASSERT(!lsp_cell_is_syntax(c));
TEST_ASSERT(lsp_cell_get_size(c) == 4);
TEST_ASSERT(lsp_cell_get_function_parent_ctx(c) == 1);
TEST_ASSERT(lsp_cell_get_function_args(c) == 2);
TEST_ASSERT(lsp_cell_get_function_body(c) == 3);
}
void test_cell_syntax() {
lsp_cell_t c[4];
lsp_cell_set_syntax(c, 1, 2, 3);
TEST_ASSERT(lsp_cell_is_syntax(c));
TEST_ASSERT(lsp_cell_is_function_or_syntax(c));
TEST_ASSERT(!lsp_cell_is_function(c));
TEST_ASSERT(lsp_cell_get_size(c) == 4);
TEST_ASSERT(lsp_cell_get_syntax_parent_ctx(c) == 1);
TEST_ASSERT(lsp_cell_get_syntax_args(c) == 2);
TEST_ASSERT(lsp_cell_get_syntax_body(c) == 3);
}
TEST_LIST = {{"cell_number", test_cell_number},
{"cell_pair", test_cell_pair},
{"cell_string", test_cell_string},
{"cell_symbol", test_cell_symbol},
{"cell_builtin_function", test_cell_builtin_function},
{"cell_builtin_syntax", test_cell_builtin_syntax},
{"cell_function", test_cell_function},
{"cell_syntax", test_cell_syntax},
{NULL, NULL}};
|
