From 3cbcd186e13c3c27e3942a448d8cf708cf47c934 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 29 Mar 2010 17:35:39 -0400 Subject: 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 semantic-test.el. --- test/ChangeLog | 4 ++++ test/cedet/semantic-ia-utest.el | 21 +++++++++++++++++++++ 2 files changed, 25 insertions(+) (limited to 'test') diff --git a/test/ChangeLog b/test/ChangeLog index 3ed59893802..da85fc4a1bf 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,5 +1,9 @@ 2010-03-29 Chong Yidong + * cedet/semantic-ia-utest.el + (semantic-symref-test-count-hits-in-tag): Add function, from + semantic-test.el. + * cedet/tests/test.cpp: * cedet/tests/test.py: * cedet/tests/teststruct.cpp: diff --git a/test/cedet/semantic-ia-utest.el b/test/cedet/semantic-ia-utest.el index 92dbaba7615..00f6632f9f3 100644 --- a/test/cedet/semantic-ia-utest.el +++ b/test/cedet/semantic-ia-utest.el @@ -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." + (interactive) + (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) + (semantic-symref-hits-in-region + 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)))) + Lcount))) + (defun semantic-src-utest-buffer-refs () "Run a sym-ref counting unit-test pass in the current buffer." -- cgit v1.2.1