Mercurial > hg > xemacs-beta

comparison src/tests.c @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents
children 4a8bb4aa9740
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
1 /* C support for testing XEmacs - see tests/automated/c-tests.el
2 Copyright (C) 2000 Martin Buchholz
3
4 This file is part of XEmacs.
5
6 XEmacs is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by the
8 Free Software Foundation; either version 2, or (at your option) any
9 later version.
10
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with XEmacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
20
21 /* Author: Martin Buchholz
22
23 This file provides support for running tests for XEmacs that cannot
24 be written entirely in Lisp. These tests are run automatically via
25 tests/automated/c-tests.el, or can be run by hand using M-x */
26
27
28 #include <config.h>
29 #include "lisp.h"
30 #include "buffer.h"
31 #include "lstream.h"
32 #include "opaque.h"
33
34 static Lisp_Object Vtest_function_list;
35
36
37 DEFUN ("test-data-format-conversion", Ftest_data_format_conversion, 0, 0, "", /*
38 Test TO_EXTERNAL_FORMAT() and TO_INTERNAL_FORMAT()
39 */
40 ())
41 {
42 void *ptr; size_t len;
43 Lisp_Object string, opaque;
44
45 Bufbyte int_foo[] = "\n\nfoo\nbar";
46 Extbyte ext_unix[]= "\n\nfoo\nbar";
47
48 Extbyte ext_dos[] = "\r\n\r\nfoo\r\nbar";
49 Extbyte ext_mac[] = "\r\rfoo\rbar";
50 Lisp_Object opaque_dos = make_opaque (ext_dos, sizeof (ext_dos) - 1);
51 Lisp_Object string_foo = make_string (int_foo, sizeof (int_foo) - 1);
52
53 Extbyte ext_latin[] = "f\372b\343\340";
54 Bufbyte int_latin1[] = "f\201\372b\201\343\201\340";
55 Bufbyte int_latin2[] = "f\202\372b\202\343\202\340";
56 #ifdef MULE
57 Extbyte ext_latin12[]= "f\033-A\372b\343\340\033-B";
58 Extbyte ext_tilde[] = "f~b~~";
59 Lisp_Object string_latin2 = make_string (int_latin2, sizeof (int_latin2) - 1);
60 #endif
61 Lisp_Object opaque_latin = make_opaque (ext_latin, sizeof (ext_latin) - 1);
62 Lisp_Object opaque0_latin = make_opaque (ext_latin, sizeof (ext_latin));
63 Lisp_Object string_latin1 = make_string (int_latin1, sizeof (int_latin1) - 1);
64
65 /* Check for expected strings before and after conversion.
66 Conversions depend on whether MULE is defined,
67 and on whether FILE_CODING is defined. */
68 #ifdef MULE
69 #define DFC_CHECK_DATA_COND_MULE(ptr,len, \
70 constant_string_mule, \
71 constant_string_non_mule) \
72 DFC_CHECK_DATA (ptr, len, constant_string_mule)
73 #define DFC_CHECK_DATA_COND_MULE_NUL(ptr,len, \
74 constant_string_mule, \
75 constant_string_non_mule) \
76 DFC_CHECK_DATA_NUL (ptr, len, constant_string_mule)
77 #else
78 #define DFC_CHECK_DATA_COND_MULE(ptr,len, \
79 constant_string_mule, \
80 constant_string_non_mule) \
81 DFC_CHECK_DATA (ptr, len, constant_string_non_mule)
82 #define DFC_CHECK_DATA_COND_MULE_NUL(ptr,len, \
83 constant_string_mule, \
84 constant_string_non_mule) \
85 DFC_CHECK_DATA_NUL (ptr, len, constant_string_non_mule)
86 #endif
87
88 #ifdef FILE_CODING
89 #define DFC_CHECK_DATA_COND_EOL(ptr,len, \
90 constant_string_eol, \
91 constant_string_non_eol) \
92 DFC_CHECK_DATA (ptr, len, constant_string_eol)
93 #define DFC_CHECK_DATA_COND_EOL_NUL(ptr,len, \
94 constant_string_eol, \
95 constant_string_non_eol) \
96 DFC_CHECK_DATA_NUL (ptr, len, constant_string_eol)
97 #else
98 #define DFC_CHECK_DATA_COND_EOL(ptr,len, \
99 constant_string_eol, \
100 constant_string_non_eol) \
101 DFC_CHECK_DATA (ptr, len, constant_string_non_eol)
102 #define DFC_CHECK_DATA_COND_EOL_NUL(ptr,len, \
103 constant_string_eol, \
104 constant_string_non_eol) \
105 DFC_CHECK_DATA_NUL (ptr, len, constant_string_non_eol)
106 #endif
107
108 /* Check for expected strings before and after conversion. */
109 #define DFC_CHECK_DATA(ptr,len, constant_string) do { \
110 assert ((len) == sizeof (constant_string) - 1); \
111 assert (!memcmp (ptr, constant_string, len)); \
112 } while (0)
113
114 /* Macro version that includes the trailing NULL byte. */
115 #define DFC_CHECK_DATA_NUL(ptr,len,constant_string) do {\
116 assert ((len) == sizeof (constant_string)); \
117 assert (!memcmp (ptr, constant_string, len)); \
118 } while (0)
119
120 #ifdef MULE
121 ptr = NULL, len = rand();
122 TO_EXTERNAL_FORMAT (DATA, (int_latin2, sizeof (int_latin2)),
123 ALLOCA, (ptr, len),
124 Fget_coding_system (intern ("iso-8859-2")));
125 DFC_CHECK_DATA_NUL (ptr, len, ext_latin);
126
127 ptr = NULL, len = rand();
128 TO_EXTERNAL_FORMAT (LISP_STRING, string_latin2,
129 ALLOCA, (ptr, len),
130 Fget_coding_system (intern ("iso-8859-2")));
131 DFC_CHECK_DATA (ptr, len, ext_latin);
132
133 ptr = NULL, len = rand();
134 TO_EXTERNAL_FORMAT (LISP_STRING, string_latin1,
135 ALLOCA, (ptr, len),
136 Fget_coding_system (intern ("iso-8859-2")));
137 DFC_CHECK_DATA (ptr, len, ext_latin12);
138
139 ptr = NULL, len = rand();
140 TO_EXTERNAL_FORMAT (DATA, (int_latin2, sizeof (int_latin2) - 1),
141 MALLOC, (ptr, len),
142 Fget_coding_system (intern ("iso-8859-2")));
143 DFC_CHECK_DATA (ptr, len, ext_latin);
144 xfree (ptr);
145
146 TO_EXTERNAL_FORMAT (DATA, (int_latin2, sizeof (int_latin2) - 1),
147 LISP_OPAQUE, opaque,
148 Fget_coding_system (intern ("iso-8859-2")));
149 DFC_CHECK_DATA (XOPAQUE_DATA (opaque), XOPAQUE_SIZE (opaque), ext_latin);
150
151 ptr = NULL, len = rand();
152 TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin) - 1),
153 ALLOCA, (ptr, len),
154 intern ("iso-8859-2"));
155 DFC_CHECK_DATA (ptr, len, int_latin2);
156
157 ptr = NULL, len = rand();
158 TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin) - 1),
159 MALLOC, (ptr, len),
160 intern ("iso-8859-2"));
161 DFC_CHECK_DATA (ptr, len, int_latin2);
162 xfree (ptr);
163
164 TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin) - 1),
165 LISP_STRING, string,
166 intern ("iso-8859-2"));
167 DFC_CHECK_DATA (XSTRING_DATA (string), XSTRING_LENGTH (string), int_latin2);
168
169 TO_INTERNAL_FORMAT (LISP_OPAQUE, opaque_latin,
170 LISP_STRING, string,
171 intern ("iso-8859-2"));
172 DFC_CHECK_DATA (XSTRING_DATA (string), XSTRING_LENGTH (string), int_latin2);
173
174 TO_INTERNAL_FORMAT (LISP_OPAQUE, opaque0_latin,
175 LISP_STRING, string,
176 intern ("iso-8859-2"));
177 DFC_CHECK_DATA_NUL (XSTRING_DATA (string), XSTRING_LENGTH (string), int_latin2);
178
179 TO_INTERNAL_FORMAT (LISP_OPAQUE, opaque0_latin,
180 LISP_BUFFER, Fcurrent_buffer(),
181 intern ("iso-8859-2"));
182 DFC_CHECK_DATA_NUL (BUF_BYTE_ADDRESS (current_buffer, BUF_PT (current_buffer)),
183 sizeof (int_latin2), int_latin2);
184
185 TO_INTERNAL_FORMAT (LISP_OPAQUE, opaque_latin,
186 LISP_BUFFER, Fcurrent_buffer(),
187 intern ("iso-8859-1"));
188 DFC_CHECK_DATA (BUF_BYTE_ADDRESS (current_buffer, BUF_PT (current_buffer)),
189 sizeof (int_latin1) - 1, int_latin1);
190
191 TO_INTERNAL_FORMAT (DATA, (ext_latin12, sizeof (ext_latin12) - 1),
192 ALLOCA, (ptr, len),
193 intern ("iso-8859-2"));
194 DFC_CHECK_DATA (ptr, len, int_latin1);
195
196 #endif /* MULE */
197
198 ptr = NULL, len = rand();
199 TO_EXTERNAL_FORMAT (DATA, (int_latin1, sizeof (int_latin1) - 1),
200 ALLOCA, (ptr, len),
201 Qbinary);
202 DFC_CHECK_DATA_COND_MULE (ptr, len, ext_latin, int_latin1);
203
204 ptr = NULL, len = rand();
205 TO_EXTERNAL_FORMAT (DATA, (int_latin1, sizeof (int_latin1)),
206 ALLOCA, (ptr, len),
207 Qbinary);
208 DFC_CHECK_DATA_COND_MULE_NUL (ptr, len, ext_latin, int_latin1);
209
210 ptr = NULL, len = rand();
211 TO_EXTERNAL_FORMAT (DATA, (int_latin2, sizeof (int_latin2) - 1),
212 ALLOCA, (ptr, len),
213 Fget_coding_system (Qbinary));
214 DFC_CHECK_DATA_COND_MULE (ptr, len, ext_tilde, int_latin2);
215
216 ptr = NULL, len = rand();
217 TO_EXTERNAL_FORMAT (DATA, (int_latin1, sizeof (int_latin1) - 1),
218 ALLOCA, (ptr, len),
219 intern ("iso-8859-1"));
220 DFC_CHECK_DATA_COND_MULE (ptr, len, ext_latin, int_latin1);
221
222
223 ptr = NULL, len = rand();
224 TO_EXTERNAL_FORMAT (LISP_STRING, string_latin1,
225 ALLOCA, (ptr, len),
226 Qbinary);
227 DFC_CHECK_DATA_COND_MULE (ptr, len, ext_latin, int_latin1);
228
229 ptr = NULL, len = rand();
230 TO_EXTERNAL_FORMAT (LISP_STRING, string_latin1,
231 ALLOCA, (ptr, len),
232 Fget_coding_system (Qbinary));
233 DFC_CHECK_DATA_COND_MULE (ptr, len, ext_latin, int_latin1);
234
235 ptr = NULL, len = rand();
236 TO_EXTERNAL_FORMAT (LISP_STRING, string_latin1,
237 ALLOCA, (ptr, len),
238 intern ("iso-8859-1"));
239 DFC_CHECK_DATA_COND_MULE (ptr, len, ext_latin, int_latin1);
240
241 ptr = NULL, len = rand();
242 TO_EXTERNAL_FORMAT (DATA, (int_latin1, sizeof (int_latin1) - 1),
243 MALLOC, (ptr, len),
244 Qbinary);
245 DFC_CHECK_DATA_COND_MULE (ptr, len, ext_latin, int_latin1);
246 xfree (ptr);
247
248 ptr = NULL, len = rand();
249 TO_EXTERNAL_FORMAT (DATA, (int_latin2, sizeof (int_latin2)),
250 MALLOC, (ptr, len),
251 Fget_coding_system (Qbinary));
252 DFC_CHECK_DATA_COND_MULE_NUL (ptr, len, ext_tilde, int_latin2);
253 xfree (ptr);
254
255 ptr = NULL, len = rand();
256 TO_EXTERNAL_FORMAT (DATA, (int_latin1, sizeof (int_latin1) - 1),
257 MALLOC, (ptr, len),
258 intern ("iso-8859-1"));
259 DFC_CHECK_DATA_COND_MULE (ptr, len, ext_latin, int_latin1);
260 xfree (ptr);
261
262 TO_EXTERNAL_FORMAT (DATA, (int_latin1, sizeof (int_latin1) - 1),
263 LISP_OPAQUE, opaque,
264 Qbinary);
265 DFC_CHECK_DATA_COND_MULE (XOPAQUE_DATA (opaque),
266 XOPAQUE_SIZE (opaque), ext_latin, int_latin1);
267
268 TO_EXTERNAL_FORMAT (DATA, (int_latin2, sizeof (int_latin2)),
269 LISP_OPAQUE, opaque,
270 Fget_coding_system (Qbinary));
271 DFC_CHECK_DATA_COND_MULE_NUL (XOPAQUE_DATA (opaque),
272 XOPAQUE_SIZE (opaque), ext_tilde, int_latin2);
273
274 TO_EXTERNAL_FORMAT (DATA, (int_latin1, sizeof (int_latin1) - 1),
275 LISP_OPAQUE, opaque,
276 intern ("iso-8859-1"));
277 DFC_CHECK_DATA_COND_MULE (XOPAQUE_DATA (opaque),
278 XOPAQUE_SIZE (opaque), ext_latin, int_latin1);
279
280 ptr = NULL, len = rand();
281 TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin) - 1),
282 ALLOCA, (ptr, len),
283 Qbinary);
284 DFC_CHECK_DATA_COND_MULE (ptr, len, int_latin1, ext_latin);
285
286 ptr = NULL, len = rand();
287 TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin)),
288 ALLOCA, (ptr, len),
289 intern ("iso-8859-1"));
290 DFC_CHECK_DATA_COND_MULE_NUL (ptr, len, int_latin1, ext_latin);
291
292 ptr = NULL, len = rand();
293 TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin)),
294 MALLOC, (ptr, len),
295 intern ("iso-8859-1"));
296 DFC_CHECK_DATA_COND_MULE_NUL (ptr, len, int_latin1, ext_latin);
297 xfree (ptr);
298
299 ptr = NULL, len = rand();
300 TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin)),
301 MALLOC, (ptr, len),
302 Qnil);
303 DFC_CHECK_DATA_COND_MULE_NUL (ptr, len, int_latin1, ext_latin);
304 xfree (ptr);
305
306 TO_INTERNAL_FORMAT (DATA, (ext_latin, sizeof (ext_latin) - 1),
307 LISP_STRING, string,
308 intern ("iso-8859-1"));
309 DFC_CHECK_DATA_COND_MULE (XSTRING_DATA (string),
310 XSTRING_LENGTH (string), int_latin1, ext_latin);
311
312 TO_INTERNAL_FORMAT (LISP_OPAQUE, opaque_latin,
313 LISP_STRING, string,
314 intern ("iso-8859-1"));
315 DFC_CHECK_DATA_COND_MULE (XSTRING_DATA (string),
316 XSTRING_LENGTH (string), int_latin1, ext_latin);
317
318 TO_INTERNAL_FORMAT (LISP_OPAQUE, opaque0_latin,
319 LISP_STRING, string,
320 intern ("iso-8859-1"));
321 DFC_CHECK_DATA_COND_MULE_NUL (XSTRING_DATA (string),
322 XSTRING_LENGTH (string), int_latin1, ext_latin);
323
324
325 ptr = NULL, len = rand();
326 TO_EXTERNAL_FORMAT (DATA, (int_foo, sizeof (int_foo)),
327 MALLOC, (ptr, len),
328 Fget_coding_system (Qbinary));
329 DFC_CHECK_DATA_COND_EOL_NUL (ptr, len, ext_unix, int_foo);
330 xfree (ptr);
331
332 ptr = NULL, len = rand();
333 TO_EXTERNAL_FORMAT (DATA, (int_foo, sizeof (int_foo) - 1),
334 LISP_OPAQUE, opaque,
335 intern ("raw-text-mac"));
336 DFC_CHECK_DATA_COND_EOL (XOPAQUE_DATA (opaque),
337 XOPAQUE_SIZE (opaque), ext_mac, int_foo);
338
339 ptr = NULL, len = rand();
340 TO_EXTERNAL_FORMAT (LISP_STRING, string_foo,
341 ALLOCA, (ptr, len),
342 intern ("raw-text-dos"));
343 DFC_CHECK_DATA_COND_EOL (ptr, len, ext_dos, int_foo);
344
345 ptr = NULL, len = rand();
346 TO_EXTERNAL_FORMAT (DATA, (int_foo, sizeof (int_foo) - 1),
347 ALLOCA, (ptr, len),
348 intern ("raw-text-unix"));
349 DFC_CHECK_DATA_COND_EOL (ptr, len, ext_unix, int_foo);
350
351 ptr = NULL, len = rand();
352 TO_EXTERNAL_FORMAT (LISP_STRING, string_foo,
353 MALLOC, (ptr, len),
354 intern ("no-conversion-mac"));
355 DFC_CHECK_DATA_COND_EOL (ptr, len, ext_mac, int_foo);
356 xfree (ptr);
357
358 ptr = NULL, len = rand();
359 TO_EXTERNAL_FORMAT (DATA, (int_foo, sizeof (int_foo) - 1),
360 ALLOCA, (ptr, len),
361 Fget_coding_system (intern ("no-conversion-dos")));
362 DFC_CHECK_DATA_COND_EOL (ptr, len, ext_dos, int_foo);
363
364 ptr = NULL, len = rand();
365 TO_EXTERNAL_FORMAT (DATA, (int_foo, sizeof (int_foo)),
366 ALLOCA, (ptr, len),
367 intern ("no-conversion-unix"));
368 DFC_CHECK_DATA_COND_EOL_NUL (ptr, len, ext_unix, int_foo);
369
370 #ifdef FILE_CODING
371 TO_INTERNAL_FORMAT (LISP_OPAQUE, opaque_dos,
372 LISP_BUFFER, Fcurrent_buffer(),
373 intern ("undecided"));
374 DFC_CHECK_DATA (BUF_BYTE_ADDRESS (current_buffer, BUF_PT (current_buffer)),
375 sizeof (int_foo) - 1, int_foo);
376
377 #endif /* FILE_CODING */
378
379 TO_INTERNAL_FORMAT (DATA, (ext_mac, sizeof (ext_mac) - 1),
380 LISP_STRING, string,
381 intern ("iso-8859-1"));
382 DFC_CHECK_DATA_COND_EOL (XSTRING_DATA (string),
383 XSTRING_LENGTH (string), int_foo, ext_mac);
384
385 {
386 Lisp_Object stream =
387 make_fixed_buffer_input_stream (ext_dos, sizeof (ext_dos) - 1);
388 TO_INTERNAL_FORMAT (LISP_LSTREAM, stream,
389 LISP_STRING, string,
390 intern ("iso-8859-1"));
391 DFC_CHECK_DATA_COND_EOL (XSTRING_DATA (string),
392 XSTRING_LENGTH (string), int_foo, ext_dos);
393 }
394
395 TO_INTERNAL_FORMAT (DATA, (ext_unix, sizeof (ext_unix) - 1),
396 LISP_STRING, string,
397 intern ("no-conversion"));
398 DFC_CHECK_DATA_COND_EOL (XSTRING_DATA (string),
399 XSTRING_LENGTH (string), int_foo, ext_unix);
400
401
402 ptr = NULL, len = rand();
403 TO_EXTERNAL_FORMAT (LISP_OPAQUE, opaque_dos,
404 ALLOCA, (ptr, len),
405 Qbinary);
406 DFC_CHECK_DATA (ptr, len, ext_dos);
407
408 return intern ("PASS");
409 }
410
411
412
413 #define TESTS_DEFSUBR(Fname) do { \
414 DEFSUBR (Fname); \
415 Vtest_function_list = \
416 Fcons (intern (subr_name (&S##Fname)), \
417 Vtest_function_list); \
418 } while (0)
419
420 void
421 syms_of_tests (void)
422 {
423 Vtest_function_list = Qnil;
424
425 TESTS_DEFSUBR (Ftest_data_format_conversion);
426 /* Add other test functions here with TESTS_DEFSUBR */
427 }
428
429 void
430 vars_of_tests (void)
431 {
432 DEFVAR_LISP ("test-function-list", &Vtest_function_list /*
433 List of all test functions defined in tests.c.
434 For use by the automated test suite. See tests/automated/c-tests.
435 */ );
436 }