[elpa] externals/phps-mode 376e690 15/96: Verified parse

[Christian Johansson]

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

    Verified parse
---
 test/phps-mode-test-parser.el | 22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

diff --git a/test/phps-mode-test-parser.el b/test/phps-mode-test-parser.el
index d23b74c..0f55e56 100644
--- a/test/phps-mode-test-parser.el
+++ b/test/phps-mode-test-parser.el
@@ -71,15 +71,27 @@
   "Run test for lexer."
   (message "-- Running all tests for parser... --\n")
 
-  ;; TODO Verify parse below
   (phps-mode-test-parser--buffer-contents
    "<?php echo 'hello';"
    "Basic echo test"
    (lambda()
-     (should
-      (equal
-       '(80 459 466 411 333 332 154 102 79)
-       (phps-mode-parser-parse)))))
+
+     (let ((parse (phps-mode-parser-parse)))
+       (message "Left-to-right with left-most derivation in reverse: %S" parse)
+       (dolist (production-number (reverse parse))
+         (let ((production
+                (phps-mode-parser--get-grammar-production-by-number
+                 production-number)))
+           (message
+            "%d: %S -> %S"
+            production-number
+            (car (car production))
+            (car (car (cdr production))))))
+       (message "\n")
+       (should
+        (equal
+         '(80 459 466 411 333 332 154 102 79)
+         parse)))))
 
   (phps-mode-test-parser--buffer-contents
    "<? echo 'hello'; ?>"