[nongnu] elpa/d-mode fef0def 128/346: tests: Add basic imenu test

[ELPA Syncer]

branch: elpa/d-mode
commit fef0def351b564ddfdc5b8ea27a8a95bd44e0fb5
Author: Vladimir Panteleev <git@thecybershadow.net>
Commit: Vladimir Panteleev <git@thecybershadow.net>

    tests: Add basic imenu test
---
 d-mode-test.el | 13 +++++++++++++
 tests/imenu.d  |  6 ++++++
 2 files changed, 19 insertions(+)

diff --git a/d-mode-test.el b/d-mode-test.el
index 2ab6265..efd952f 100644
--- a/d-mode-test.el
+++ b/d-mode-test.el
@@ -224,8 +224,21 @@ Called from the #run snippet of individual test files."
       (setq error-list (cons (line-number-at-pos) error-list)))
     (reverse error-list)))
 
+(require 'imenu)
+
+(defun d-test-get-imenu-lines ()
+  "Get list of line numbers of lines recognized as imenu entries.
+
+Called from the #run snippet of individual test files."
+  (imenu--make-index-alist t)
+  (mapcar
+   (lambda (x)
+     (line-number-at-pos (cdr x)))
+   imenu--index-alist))
+
 ;; Run the tests
 (ert-deftest d-mode-basic ()
+  (should (equal (do-one-test "tests/imenu.d") t))
   (should (equal (do-one-test "tests/I0021.d") t))
   (should (equal (do-one-test "tests/I0039.d") t))
   (should (equal (do-one-test "tests/I0064.d") t))
diff --git a/tests/imenu.d b/tests/imenu.d
new file mode 100644
index 0000000..d781464
--- /dev/null
+++ b/tests/imenu.d
@@ -0,0 +1,6 @@
+// #run: (d-test-get-imenu-lines)
+// #out: (4)
+
+void main()
+{
+}