HCoop / bpt / emacs.git / blame
| Commit | Line | Data |
|---|---|---|
| 8f52e94d CY |
1 | ;;; From ede-locate: |
| 2 | ||
| 3 | (require 'ede/locate) | |
| 4 | ||
| 5 | ;;; TESTS | |
| 6 | ;; | |
| 7 | ;; Some testing routines. | |
| 8 | (defun ede-locate-test-locate (file) | |
| 9 | "Test EDE Locate on FILE using LOCATE type. | |
| 10 | The search is done with the current EDE root." | |
| 11 | (interactive "sFile: ") | |
| 12 | (let ((loc (ede-locate-locate | |
| 13 | "test" | |
| 14 | :root (ede-project-root-directory | |
| 15 | (ede-toplevel))))) | |
| 16 | (data-debug-new-buffer "*EDE Locate ADEBUG*") | |
| 17 | (ede-locate-file-in-project loc file) | |
| 18 | (data-debug-insert-object-slots loc "]")) | |
| 19 | ) | |
| 20 | ||
| 21 | (defun ede-locate-test-global (file) | |
| 22 | "Test EDE Locate on FILE using GNU Global type. | |
| 23 | The search is done with the current EDE root." | |
| 24 | (interactive "sFile: ") | |
| 25 | (let ((loc (ede-locate-global | |
| 26 | "test" | |
| 27 | :root (ede-project-root-directory | |
| 28 | (ede-toplevel))))) | |
| 29 | (data-debug-new-buffer "*EDE Locate ADEBUG*") | |
| 30 | (ede-locate-file-in-project loc file) | |
| 31 | (data-debug-insert-object-slots loc "]")) | |
| 32 | ) | |
| 33 | ||
| 34 | (defun ede-locate-test-idutils (file) | |
| 35 | "Test EDE Locate on FILE using ID Utils type. | |
| 36 | The search is done with the current EDE root." | |
| 37 | (interactive "sFile: ") | |
| 38 | (let ((loc (ede-locate-idutils | |
| 39 | "test" | |
| 40 | :root (ede-project-root-directory | |
| 41 | (ede-toplevel))))) | |
| 42 | (data-debug-new-buffer "*EDE Locate ADEBUG*") | |
| 43 | (ede-locate-file-in-project loc file) | |
| 44 | (data-debug-insert-object-slots loc "]")) | |
| 45 | ) | |
| 46 | ||
| 47 | (defun ede-locate-test-cscope (file) | |
| 48 | "Test EDE Locate on FILE using CScope type. | |
| 49 | The search is done with the current EDE root." | |
| 50 | (interactive "sFile: ") | |
| 51 | (let ((loc (ede-locate-cscope | |
| 52 | "test" | |
| 53 | :root (ede-project-root-directory | |
| 54 | (ede-toplevel))))) | |
| 55 | (data-debug-new-buffer "*EDE Locate ADEBUG*") | |
| 56 | (ede-locate-file-in-project loc file) | |
| 57 | (data-debug-insert-object-slots loc "]")) | |
| 58 | ) |