Mercurial > emacs
changeset 104499:d0cdad3e21eb
test/cedet/ede-tests.el: New file.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 20 Sep 2009 21:07:22 +0000 |
| parents | 41dc39934483 |
| children | 99ab773d3664 |
| files | test/cedet/ede-tests.el |
| diffstat | 1 files changed, 58 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/test/cedet/ede-tests.el Sun Sep 20 21:07:22 2009 +0000 @@ -0,0 +1,58 @@ +;;; 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 "]")) + )