Mercurial > emacs
view test/cedet/ede-tests.el @ 107466:b1a085b9e50a
Merge from mainline.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Tue, 23 Mar 2010 06:43:05 +0000 |
parents | 51227b0f95e1 |
children | 376148b31b5e |
line wrap: on
line source
;;; ede-tests.el --- Some tests for the Emacs Development Environment ;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <eric@siege-engine.com> ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; Extracted from ede-locate.el in the CEDET distribution. ;;; Code: ;;; 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 ;;; ede-test.el ends here