branch: externals/parser-generator
commit 6e0e781a62b26189af9abb2f000401b23a8ad574
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
More debugging
---
parser-generator.el | 2 +-
test/parser-generator-lr-test.el | 13 +++++++++----
2 files changed, 10 insertions(+), 5 deletions(-)
diff --git a/parser-generator.el b/parser-generator.el
index eea8285..aa78b15 100644
--- a/parser-generator.el
+++ b/parser-generator.el
@@ -17,7 +17,7 @@
(defvar
parser-generator--debug
- nil
+ t
"Whether to print debug messages or not.")
(defvar
diff --git a/test/parser-generator-lr-test.el b/test/parser-generator-lr-test.el
index 38f3391..a974a56 100644
--- a/test/parser-generator-lr-test.el
+++ b/test/parser-generator-lr-test.el
@@ -501,6 +501,11 @@
(parser-generator-lr-test--parse-incremental-vs-regular)
(message "Passed incremental-tests")
+ (message "Passed tests for (parser-generator-lr--parse)"))
+
+(defun parser-generator-lr-test-infix-calculator ()
+ "Test infix calculator example."
+
;; https://www.gnu.org/software/bison/manual/html_node/Infix-Calc.html
(setq
parser-generator--e-identifier
@@ -843,12 +848,12 @@
(switch-to-buffer buffer)
(kill-region (point-min) (point-max))
- (insert "-33-3\n")
+ (insert "- 33 - 3\n")
(should
(equal
-36
(parser-generator-lr-translate)))
- (message "Passed -33-3 with correct result")
+ (message "Passed - 33 - 3 with correct result")
(switch-to-buffer buffer)
(kill-region (point-min) (point-max))
@@ -878,8 +883,7 @@
(message "Passed 4 + 4.5 - (34/(8*3+-3)) with correct result")
(kill-buffer))
-
- (message "Passed tests for (parser-generator-lr--parse)"))
+ )
(defun parser-generator-lr-test-parse-k-2 ()
"Test `parser-generator-lr-parse' with k = 2."
@@ -1645,6 +1649,7 @@
"Run test."
;; (setq debug-on-error nil)
+ (parser-generator-lr-test-infix-calculator)
(parser-generator-lr-test--items-for-prefix)
(parser-generator-lr-test--items-valid-p)
(parser-generator-lr-test--generate-goto-tables)
