test/cedet/ede-tests.el

   1 ;;; ede-tests.el --- Some tests for the Emacs Development Environment
   2
   3 ;; Copyright (C) 2008, 2009, 2010  Free Software Foundation, Inc.
   4
   5 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
   6
   7 ;; This file is part of GNU Emacs.
   8
   9 ;; GNU Emacs is free software: you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation, either version 3 of the License, or
  12 ;; (at your option) any later version.
  13
  14 ;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 ;;; Commentary:
  23
  24 ;; Extracted from ede-locate.el in the CEDET distribution.
  25
  26 ;;; Code:
  27
  28 ;;; From ede-locate:
  29
  30 (require 'ede/locate)
  31
  32 ;;; TESTS
  33 ;;
  34 ;; Some testing routines.
  35 (defun ede-locate-test-locate (file)
  36   "Test EDE Locate on FILE using LOCATE type.
  37 The search is done with the current EDE root."
  38   (interactive "sFile: ")
  39   (let ((loc (ede-locate-locate
  40               "test"
  41               :root (ede-project-root-directory
  42                      (ede-toplevel)))))
  43     (data-debug-new-buffer "*EDE Locate ADEBUG*")
  44     (ede-locate-file-in-project loc file)
  45     (data-debug-insert-object-slots loc "]"))
  46   )
  47
  48 (defun ede-locate-test-global (file)
  49   "Test EDE Locate on FILE using GNU Global type.
  50 The search is done with the current EDE root."
  51   (interactive "sFile: ")
  52   (let ((loc (ede-locate-global
  53               "test"
  54               :root (ede-project-root-directory
  55                      (ede-toplevel)))))
  56     (data-debug-new-buffer "*EDE Locate ADEBUG*")
  57     (ede-locate-file-in-project loc file)
  58     (data-debug-insert-object-slots loc "]"))
  59   )
  60
  61 (defun ede-locate-test-idutils (file)
  62   "Test EDE Locate on FILE using ID Utils type.
  63 The search is done with the current EDE root."
  64   (interactive "sFile: ")
  65   (let ((loc (ede-locate-idutils
  66               "test"
  67               :root (ede-project-root-directory
  68                      (ede-toplevel)))))
  69     (data-debug-new-buffer "*EDE Locate ADEBUG*")
  70     (ede-locate-file-in-project loc file)
  71     (data-debug-insert-object-slots loc "]"))
  72   )
  73
  74 (defun ede-locate-test-cscope (file)
  75   "Test EDE Locate on FILE using CScope type.
  76 The search is done with the current EDE root."
  77   (interactive "sFile: ")
  78   (let ((loc (ede-locate-cscope
  79               "test"
  80               :root (ede-project-root-directory
  81                      (ede-toplevel)))))
  82     (data-debug-new-buffer "*EDE Locate ADEBUG*")
  83     (ede-locate-file-in-project loc file)
  84     (data-debug-insert-object-slots loc "]"))
  85   )
  86
  87 ;; arch-tag: 79fae12e-652f-4544-a20e-b24d87b4917d
  88 ;;; ede-test.el ends here