[elpa] externals/parser-generator f213255 348/434: Passed all old unit tests again after translation refactor

[ELPA Syncer]

branch: externals/parser-generator
commit f213255479711ab547e594bf09535f7be563933d
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Passed all old unit tests again after translation refactor
---
 parser-generator.el              | 2 +-
 test/parser-generator-lr-test.el | 7 +++----
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/parser-generator.el b/parser-generator.el
index befa2ca..e75424f 100644
--- a/parser-generator.el
+++ b/parser-generator.el
@@ -17,7 +17,7 @@
 
 (defvar
   parser-generator--debug
-  t
+  nil
   "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 638137e..f5eea17 100644
--- a/test/parser-generator-lr-test.el
+++ b/test/parser-generator-lr-test.el
@@ -1242,8 +1242,8 @@
        (
         (S (E $))
         (E
-         (E "*" B (lambda(args) (let ((ret (nth 0 args))) (when (nth 2 args) 
(setq ret (append ret `(" x " ,(nth 2 args))))) ret)))
-         (E "+" B (lambda(args) (let ((ret (nth 0 args))) (when (nth 2 args) 
(setq ret (append ret `(" . " ,(nth 2 args))))) ret)))
+         (E "*" B (lambda(args) (let ((ret (list (nth 0 args)))) (when (nth 2 
args) (setq ret (append ret `(" x " ,(nth 2 args))))) ret)))
+         (E "+" B (lambda(args) (let ((ret (list (nth 0 args)))) (when (nth 2 
args) (setq ret (append ret `(" . " ,(nth 2 args))))) ret)))
          (B)
          )
         (B
@@ -1274,10 +1274,9 @@
            (when (<= end (point-max))
              (buffer-substring-no-properties start end))))))
 
-    (parser-generator-lr-translate)
     (should
      (equal
-      '((("1")) " . " ("1"))
+      '("1" " . " "1")
       (parser-generator-lr-translate)))
     (message "Passed translation k=0")
     (kill-buffer))