branch: externals/phps-mode
commit 376e690fbf29201b6d1898c22c54bfe29a11ebbe
Author: Christian Johansson <[email protected]>
Commit: Christian Johansson <[email protected]>
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'; ?>"
