* files.el (auto-mode-alist): Use emacs-lisp-mode for Project.ede.

* cedet/semantic/bovine/gcc.el (semantic-gcc-test-output-parser)
(semantic-gcc-test-output-parser-this-machine):
* cedet/semantic/symref/filter.el (semantic-symref-test-count-hits-in-tag):
* cedet/semantic/db-global.el (semanticdb-test-gnu-global):
* cedet/semantic/tag-write.el (semantic-tag-write-test)
(semantic-tag-write-list-test):
* cedet/semantic/lex-spp.el (semantic-lex-spp-write-test)
(semantic-lex-spp-write-utest):
* cedet/semantic/lex.el (semantic-lex-test-region)
(semantic-lex-test-full-depth):
* cedet/semantic/idle.el (semantic-idle-pnf-test):
* cedet/semantic/fw.el (semantic-test-data-cache)
(semantic-test-throw-on-input):
* cedet/semantic/format.el (semantic-test-all-format-tag-functions):
* cedet/semantic/complete.el (semantic-complete-test):
* cedet/semantic/db-ebrowse.el (semanticdb-ebrowse-run-tests)
(semanticdb-ebrowse-dump): Test functions moved to
semantic-tests.el in the test/ directory.

* cedet/semantic/db-ref.el (semanticdb-ref-test): Doc fix.

1 files changed, 0 insertions, 27 deletions

diff --git a/lisp/cedet/semantic/format.el b/lisp/cedet/semantic/format.el
index 05bebb04ffe..d4c04a172c4 100644
--- a/lisp/cedet/semantic/format.el
+++ b/lisp/cedet/semantic/format.el
@@ -730,33 +730,6 @@ Optional argument COLOR means highlight the prototype with font-lock colors."
 	(setq text (semantic--format-uml-post-colorize text tag parent)))
     text
     ))
-
-
-;;; Test routines
-;;
-(defun semantic-test-all-format-tag-functions (&optional arg)
-  "Test all outputs from `semantic-format-tag-functions'.
-Output is generated from the function under `point'.
-Optional argument ARG specifies not to use color."
-  (interactive "P")
-  (semantic-fetch-tags)
-  (let* ((tag (semantic-current-tag))
-	 (par (semantic-current-tag-parent))
-	 (fns semantic-format-tag-functions))
-    (with-output-to-temp-buffer "*format-tag*"
-      (princ "Tag->format function tests:")
-      (while fns
-	(princ "\n")
-	(princ (car fns))
-	(princ ":\n ")
-	(let ((s (funcall (car fns) tag par (not arg))))
-	  (save-excursion
-	    (set-buffer "*format-tag*")
-	    (goto-char (point-max))
-	    (insert s)))
-	(setq fns (cdr fns))))
-      ))
-
 
 ;;; Compatibility and aliases
 ;;