annotate tests/automated/c-tests.el @ 4903:70089046adef

fix compile problems in intl-encap* under VS6 -------------------- ChangeLog entries follow: -------------------- lib-src/ChangeLog addition: 2010-01-30 Ben Wing <ben@xemacs.org> * make-mswin-unicode.pl: Make it possible to specify an overridden prototype in cases where either Cygwin or Visual Studio has errors in their headers that can be corrected by falling back to a less qualified type (typically without const). src/ChangeLog addition: 2010-01-30 Ben Wing <ben@xemacs.org> * intl-auto-encap-win32.c: * intl-auto-encap-win32.c (qxeExtractAssociatedIcon): * intl-auto-encap-win32.c (qxeExtractIconEx): * intl-auto-encap-win32.c (qxeCreateMDIWindow): * intl-auto-encap-win32.c (qxeCreateWindowStation): * intl-auto-encap-win32.c (qxeDdeCreateStringHandle): * intl-auto-encap-win32.c (qxeAbortSystemShutdown): * intl-auto-encap-win32.c (qxeRegConnectRegistry): * intl-auto-encap-win32.c (qxeGetICMProfile): * intl-auto-encap-win32.h: Rebuild. * intl-encap-win32.c: * intl-encap-win32.c (qxeUpdateICMRegKey): Delete manual definitions of functions with former errors in Cygwin headers but no longer. Use "override" with some functions where Cygwin or VS6 accidentally omits a const declaration or includes an extra one. Use "no" on SendMessageTimeout, which has an error in the VS6 prototype (you could manually fix this with an ifdef to split the Cygwin vs. VS6 calls, if we ever actually used this function).
author Ben Wing <ben@xemacs.org>
date Sat, 30 Jan 2010 20:34:23 -0600
parents 294a86d29f99
children 6bff4f219697
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
404
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
1 ;; Copyright (C) 2000 Martin Buchholz
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
2
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
3 ;; Author: Martin Buchholz <martin@xemacs.org>
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
4 ;; Maintainer: Martin Buchholz <martin@xemacs.org>
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
5 ;; Created: 1998
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
6 ;; Keywords: tests
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
7
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
8 ;; This file is part of XEmacs.
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
9
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
10 ;; XEmacs is free software; you can redistribute it and/or modify it
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
11 ;; under the terms of the GNU General Public License as published by
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
13 ;; any later version.
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
14
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
15 ;; XEmacs is distributed in the hope that it will be useful, but
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
18 ;; General Public License for more details.
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
19
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
23 ;; 02111-1307, USA.
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
24
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
25 ;;; Synched up with: Not in FSF.
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
26
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
27 ;;; Commentary:
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
28
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
29 ;;; Call tests in src/tests.c, which cannot be written using lisp only.
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
30 ;;; See test-harness.el for instructions on how to run these tests.
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
31
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
32 (eval-when-compile
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
33 (condition-case nil
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
34 (require 'test-harness)
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
35 (file-error
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
36 (push "." load-path)
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
37 (when (and (boundp 'load-file-name) (stringp load-file-name))
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
38 (push (file-name-directory load-file-name) load-path))
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
39 (require 'test-harness))))
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
40
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
41 (when (boundp 'test-function-list) ; Only if configure --debug
2f8bb876ab1d Import from CVS: tag r21-2-32
cvs
parents:
diff changeset
42 (loop for fun in test-function-list do
4747
294a86d29f99 Eliminate C asserts from c-tests.
Stephen J. Turnbull <stephen@xemacs.org>
parents: 404
diff changeset
43 ;; #### I hope there's no way we can signal ...
294a86d29f99 Eliminate C asserts from c-tests.
Stephen J. Turnbull <stephen@xemacs.org>
parents: 404
diff changeset
44 (loop for result in (funcall fun) do
294a86d29f99 Eliminate C asserts from c-tests.
Stephen J. Turnbull <stephen@xemacs.org>
parents: 404
diff changeset
45 (Assert (nth 1 result) (nth 2 result) (nth 0 result)))))