diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2009-09-20 03:44:02 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2009-09-20 03:44:02 +0000 |
commit | 00999a2ef0648870573dcb3a3866c6401db8bc28 (patch) | |
tree | 208a115701fffc358811e9612c99c874484abd2b /lisp/cedet/semantic/db-ebrowse.el | |
parent | 1eac105a705a5d055f38e2734c16101d0f550112 (diff) | |
download | emacs-00999a2ef0648870573dcb3a3866c6401db8bc28.tar.gz emacs-00999a2ef0648870573dcb3a3866c6401db8bc28.tar.bz2 emacs-00999a2ef0648870573dcb3a3866c6401db8bc28.zip |
* 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.
Diffstat (limited to 'lisp/cedet/semantic/db-ebrowse.el')
-rw-r--r-- | lisp/cedet/semantic/db-ebrowse.el | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/lisp/cedet/semantic/db-ebrowse.el b/lisp/cedet/semantic/db-ebrowse.el index dcd27e786eb..6101f3a8b66 100644 --- a/lisp/cedet/semantic/db-ebrowse.el +++ b/lisp/cedet/semantic/db-ebrowse.el @@ -59,8 +59,6 @@ (require 'semantic/find) (declare-function semantic-add-system-include "semantic/dep") -(declare-function data-debug-new-buffer "data-debug") -(declare-function data-debug-insert-thing "data-debug") (eval-and-compile ;; Hopefully, this will allow semanticdb-ebrowse to compile under @@ -668,47 +666,6 @@ Return a list of tags." nil )) -;;; TESTING -;; -;; This is a complex bit of stuff. Here are some tests for the -;; system. - -(defun semanticdb-ebrowse-run-tests () - "Run some tests of the semanticdb-ebrowse system. -All systems are different. Ask questions along the way." - (interactive) - (let ((doload nil)) - (when (y-or-n-p "Create a system database to test with? ") - (call-interactively 'semanticdb-create-ebrowse-database) - (setq doload t)) - ;; Should we load in caches - (when (if doload - (y-or-n-p "New database created. Reload system databases? ") - (y-or-n-p "Load in all system databases? ")) - (semanticdb-load-ebrowse-caches))) - ;; Ok, databases were creatd. Lets try some searching. - (when (not (or (eq major-mode 'c-mode) - (eq major-mode 'c++-mode))) - (error "Please make your default buffer be a C or C++ file, then -run the test again..") - ) - - ) - -(defun semanticdb-ebrowse-dump () - "Find the first loaded ebrowse table, and dump out the contents." - (interactive) - (require 'data-debug) - (let ((db semanticdb-database-list) - (ab nil)) - (while db - (when (semanticdb-project-database-ebrowse-p (car db)) - (setq ab (data-debug-new-buffer "*EBROWSE Database*")) - (data-debug-insert-thing (car db) "*" "") - (setq db nil) - ) - (setq db (cdr db))))) - (provide 'semantic/db-ebrowse) ;;; semantic/db-ebrowse.el ends here |