[Emacs-diffs] scratch/merge-cedet-tests 614a6bb 044/316: Synchronize base 'cedet/ede' with Emacs

[Edward John Steere]

branch: scratch/merge-cedet-tests
commit 614a6bb1eeed171e8f58ea7dd97f8738d8e48ff0
Author: xscript <address@hidden>
Commit: Edward John Steere <address@hidden>

    Synchronize base 'cedet/ede' with Emacs
---
 test/manual/cedet/cedet/ede/locate.el |   51 +++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

diff --git a/test/manual/cedet/cedet/ede/locate.el 
b/test/manual/cedet/cedet/ede/locate.el
new file mode 100644
index 0000000..be3d1b3
--- /dev/null
+++ b/test/manual/cedet/cedet/ede/locate.el
@@ -0,0 +1,51 @@
+(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 "]"))
+  )