Commit 3cbcd186 authored by Chong Yidong's avatar Chong Yidong
Browse files

Add a test function from semantic-test.el to semantic-ia-utest.el.

* cedet/semantic-ia-utest.el
(semantic-symref-test-count-hits-in-tag): Add function, from
parent a4100ebe
2010-03-29 Chong Yidong <>
* cedet/semantic-ia-utest.el
(semantic-symref-test-count-hits-in-tag): Add function, from
* cedet/tests/test.cpp:
* cedet/tests/
* cedet/tests/teststruct.cpp:
......@@ -416,6 +416,27 @@ Argument ARG specifies which set of tests to run.
(defun semantic-symref-test-count-hits-in-tag ()
"Lookup in the current tag the symbol under point.
Then count all the other references to the same symbol within the
tag that contains point, and return that."
(let* ((ctxt (semantic-analyze-current-context))
(target (car (reverse (oref ctxt prefix))))
(tag (semantic-current-tag))
(start (current-time))
(Lcount 0))
(when (semantic-tag-p target)
target (lambda (start end prefix) (setq Lcount (1+ Lcount)))
(semantic-tag-start tag)
(semantic-tag-end tag))
(when (interactive-p)
(message "Found %d occurrences of %s in %.2f seconds"
Lcount (semantic-tag-name target)
(semantic-elapsed-time start (current-time))))
(defun semantic-src-utest-buffer-refs ()
"Run a sym-ref counting unit-test pass in the current buffer."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment