Mercurial > emacs
view test/cedet/semantic-utest-c.el @ 107733:84b961690802
Remove support for DJGPP v1.x (bug#5813).
src/:
w16select.c (__dpmi_int): Remove DJGPP v1.x compatibility.
s/msdos.h:
unexec.c (make_hdr, copy_text_and_data):
sysdep.c (wait_for_termination, sys_subshell):
msdos.c (dos_set_window_size, msdos_set_cursor_shape)
(IT_set_terminal_modes):
(__write, _rename, gethostname, gettimeofday, alarm, fork, kill)
(dos_ttraw, dos_ttcooked, run_msdos_command, abort): Remove DJGPP
v1.x code and tests of the value of __DJGPP__.
(nice, pause, sigsetmask, sigblock): Remove DJGPP v1.x
compatibility code.
lread.c:
gmalloc.c (memalign):
fileio.c (Fcopy_file, check_executable, Ffile_modes):
emacs.c (main):
dosfns.c (init_dosfns):
dired.c (file_name_completion_stat): Remove tests of __DJGPP__.
msdos/:
sed3.inp:
sed2.inp:
sed1.inp:
mainmake: Files removed.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Thu, 01 Apr 2010 17:59:46 +0300 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
line wrap: on
line source
;;; semantic-utest-c.el --- C based parsing tests. ;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <eric@siege-engine.com> ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; Run some C based parsing tests. (require 'semantic) (defvar semantic-utest-c-comparisons '( ("testsppreplace.c" . "testsppreplaced.c") ) "List of files to parse and compare against eachother.") ;;; Code: ;;;###autoload (defun semantic-utest-c () "Run parsing test for C from the test directory." (interactive) (dolist (fp semantic-utest-c-comparisons) (let* ((sem (locate-library "semantic")) (sdir (file-name-directory sem)) (semantic-lex-c-nested-namespace-ignore-second nil) (tags-actual (save-excursion (set-buffer (find-file-noselect (expand-file-name (concat "tests/" (car fp)) sdir))) (semantic-clear-toplevel-cache) (semantic-fetch-tags))) (tags-expected (save-excursion (set-buffer (find-file-noselect (expand-file-name (concat "tests/" (cdr fp)) sdir))) (semantic-clear-toplevel-cache) (semantic-fetch-tags)))) ;; Now that we have the tags, compare them for SPP accuracy. (dolist (tag tags-actual) (if (and (semantic-tag-of-class-p tag 'variable) (semantic-tag-variable-constant-p tag)) nil ; skip the macros. (if (semantic-tag-similar-with-subtags-p tag (car tags-expected)) (setq tags-expected (cdr tags-expected)) (with-mode-local c-mode (error "Found: >> %s << Expected: >> %s <<" (semantic-format-tag-prototype tag nil t) (semantic-format-tag-prototype (car tags-expected) nil t) ))) )) ;; Passed? (message "PASSED!") ))) (provide 'semantic-utest-c) ;; arch-tag: a90183e0-36ba-486e-9adb-8d37c929e6ba ;;; semantic-utest-c.el ends here