[elpa] externals/phps-mode 2afb7dc87a 002/212: Generating basic imenu-index via parser SDT

[Christian Johansson]

branch: externals/phps-mode
commit 2afb7dc87a47836edb5bb34c022c32aafc2735e8
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Generating basic imenu-index via parser SDT
---
 test/phps-mode-test-parser.el | 37 +++++++++++++++++++++++++++++++++----
 1 file changed, 33 insertions(+), 4 deletions(-)

diff --git a/test/phps-mode-test-parser.el b/test/phps-mode-test-parser.el
index 7fcc2afe60..827ed3497d 100644
--- a/test/phps-mode-test-parser.el
+++ b/test/phps-mode-test-parser.el
@@ -464,15 +464,44 @@
 
          (message "\nAST:\n%S\n" ast)
          (let ((imenu-index))
-           ;; TODO Build imenu-index here
            (dolist (item ast)
-             )
+             (let ((children (plist-get item 'children))
+                   (parent))
+               (if children
+                   (progn
+                     (dolist (child children)
+                       (let ((grandchildren (plist-get child 'children))
+                             (subparent))
+                         (if grandchildren
+                             (progn
+                               (dolist (grandchild grandchildren)
+                                 (push
+                                  `(,(plist-get grandchild 'name) . 
,(plist-get grandchild 'start))
+                                  subparent))
+                               (push
+                                (append
+                                 (list (plist-get child 'name))
+                                 (reverse subparent))
+                                parent))
+                           (push
+                            `(,(plist-get child 'name) . ,(plist-get child 
'start))
+                            parent)))
+                       )
+                     (push
+                      (append
+                       (list (plist-get item 'name))
+                       (reverse parent))
+                      imenu-index))
+                 (push
+                  `(,(plist-get item 'name) . ,(plist-get item 'start))
+                  imenu-index))))
+
+           (message "imenu-index:\n%S\n" imenu-index)
 
            (should
             (equal
              imenu-index
-             '(("MyNamespace" ("MyClass" ("__construct" . 92) ("myFunction1" . 
193) ("myFunction2" . 365) ("myFunction3" . 445) ("myFunction4" . 515))))))
-           ;; TODO Test bookkeeping here
+             '(("MyNamespace" ("aFunction" . 53) ("MyClass" ("__construct" . 
178) ("myFunction1" . 279) ("myFunction2" . 451) ("myFunction3" . 531) 
("myFunction4" . 601))))))
            )))))
 
   (message "\n-- Ran tests for parser translation. --"))