Mercurial > emacs
annotate test/cedet/ede-tests.el @ 106717:15eb515afd85
* net/browse-url.el (browse-url-encode-url): Don't escape commas.
They are valid characters in URL paths (rfc3986), and at least
Firefox does not understand the encoded version (Bug#3166).
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 02 Jan 2010 15:14:54 -0500 |
parents | 7f4c7f5c0eba |
children | 51227b0f95e1 |
rev | line source |
---|---|
104499
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1 ;;; From ede-locate: |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2 |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
3 (require 'ede/locate) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
4 |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
5 ;;; TESTS |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
6 ;; |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
7 ;; Some testing routines. |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
8 (defun ede-locate-test-locate (file) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
9 "Test EDE Locate on FILE using LOCATE type. |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
10 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
|
11 (interactive "sFile: ") |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
12 (let ((loc (ede-locate-locate |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
13 "test" |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
14 :root (ede-project-root-directory |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
15 (ede-toplevel))))) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
16 (data-debug-new-buffer "*EDE Locate ADEBUG*") |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
17 (ede-locate-file-in-project loc file) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
18 (data-debug-insert-object-slots loc "]")) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
19 ) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
20 |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
21 (defun ede-locate-test-global (file) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
22 "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
|
23 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
|
24 (interactive "sFile: ") |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
25 (let ((loc (ede-locate-global |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
26 "test" |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
27 :root (ede-project-root-directory |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
28 (ede-toplevel))))) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
29 (data-debug-new-buffer "*EDE Locate ADEBUG*") |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
30 (ede-locate-file-in-project loc file) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
31 (data-debug-insert-object-slots loc "]")) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
32 ) |
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 (defun ede-locate-test-idutils (file) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
35 "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
|
36 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
|
37 (interactive "sFile: ") |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
38 (let ((loc (ede-locate-idutils |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
39 "test" |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
40 :root (ede-project-root-directory |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
41 (ede-toplevel))))) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
42 (data-debug-new-buffer "*EDE Locate ADEBUG*") |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
43 (ede-locate-file-in-project loc file) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
44 (data-debug-insert-object-slots loc "]")) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
45 ) |
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 (defun ede-locate-test-cscope (file) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
48 "Test EDE Locate on FILE using CScope type. |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
49 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
|
50 (interactive "sFile: ") |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 (let ((loc (ede-locate-cscope |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
52 "test" |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
53 :root (ede-project-root-directory |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
54 (ede-toplevel))))) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
55 (data-debug-new-buffer "*EDE Locate ADEBUG*") |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
56 (ede-locate-file-in-project loc file) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
57 (data-debug-insert-object-slots loc "]")) |
d0cdad3e21eb
test/cedet/ede-tests.el: New file.
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
58 ) |
105377 | 59 |
60 ;; arch-tag: 79fae12e-652f-4544-a20e-b24d87b4917d |