Mercurial > emacs
view test/cedet/ede-tests.el @ 107617:c5f9e4613394
Merge from mainline.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 16 Jan 2010 06:57:09 -0500 |
parents | 7f4c7f5c0eba |
children | 51227b0f95e1 |
line wrap: on
line source
;;; From ede-locate: (require 'ede/locate) ;;; TESTS ;; ;; Some testing routines. (defun ede-locate-test-locate (file) "Test EDE Locate on FILE using LOCATE type. The search is done with the current EDE root." (interactive "sFile: ") (let ((loc (ede-locate-locate "test" :root (ede-project-root-directory (ede-toplevel))))) (data-debug-new-buffer "*EDE Locate ADEBUG*") (ede-locate-file-in-project loc file) (data-debug-insert-object-slots loc "]")) ) (defun ede-locate-test-global (file) "Test EDE Locate on FILE using GNU Global type. The search is done with the current EDE root." (interactive "sFile: ") (let ((loc (ede-locate-global "test" :root (ede-project-root-directory (ede-toplevel))))) (data-debug-new-buffer "*EDE Locate ADEBUG*") (ede-locate-file-in-project loc file) (data-debug-insert-object-slots loc "]")) ) (defun ede-locate-test-idutils (file) "Test EDE Locate on FILE using ID Utils type. The search is done with the current EDE root." (interactive "sFile: ") (let ((loc (ede-locate-idutils "test" :root (ede-project-root-directory (ede-toplevel))))) (data-debug-new-buffer "*EDE Locate ADEBUG*") (ede-locate-file-in-project loc file) (data-debug-insert-object-slots loc "]")) ) (defun ede-locate-test-cscope (file) "Test EDE Locate on FILE using CScope type. The search is done with the current EDE root." (interactive "sFile: ") (let ((loc (ede-locate-cscope "test" :root (ede-project-root-directory (ede-toplevel))))) (data-debug-new-buffer "*EDE Locate ADEBUG*") (ede-locate-file-in-project loc file) (data-debug-insert-object-slots loc "]")) ) ;; arch-tag: 79fae12e-652f-4544-a20e-b24d87b4917d