[Emacs-diffs] scratch/merge-cedet-tests 6f76589 250/316: Synchronize cedet/semantic with Emacs.

[Edward John Steere]

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

    Synchronize cedet/semantic with Emacs.
---
 test/manual/cedet/cedet/semantic/find.el |   42 ++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/test/manual/cedet/cedet/semantic/find.el 
b/test/manual/cedet/cedet/semantic/find.el
new file mode 100644
index 0000000..ce61c42
--- /dev/null
+++ b/test/manual/cedet/cedet/semantic/find.el
@@ -0,0 +1,42 @@
+(defun semantic-find-benchmark ()
+  "Run some simple benchmarks to see how we are doing.
+Optional argument ARG is the number of iterations to run."
+  (interactive)
+  (require 'benchmark)
+  (let ((f-name nil)
+        (b-name nil)
+        (f-comp)
+        (b-comp)
+        (f-regex)
+        )
+    (garbage-collect)
+    (setq f-name
+          (benchmark-run-compiled
+           1000 (semantic-find-first-tag-by-name "class3"
+                                                 "test/test.cpp")))
+    (garbage-collect)
+    (setq b-name
+          (benchmark-run-compiled
+              1000 (semantic-brute-find-first-tag-by-name "class3"
+                                                          "test/test.cpp")))
+    (garbage-collect)
+    (setq f-comp
+          (benchmark-run-compiled
+              1000 (semantic-find-tags-for-completion "method"
+                                                      "test/test.cpp")))
+    (garbage-collect)
+    (setq b-comp
+          (benchmark-run-compiled
+              1000 (semantic-brute-find-tag-by-name-regexp "^method"
+                                                           "test/test.cpp")))
+    (garbage-collect)
+    (setq f-regex
+          (benchmark-run-compiled
+              1000 (semantic-find-tags-by-name-regexp "^method"
+                                                      "test/test.cpp")))
+
+    (message "Name [new old] [ %.3f %.3f ] Complete [newc/new old] [ %.3f/%.3f 
%.3f ]"
+             (car f-name) (car b-name)
+             (car f-comp) (car f-regex)
+             (car b-comp))
+  ))