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