emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/parser-generator 4297a9b43e 04/29: Added another failin


From: Christian Johansson
Subject: [elpa] externals/parser-generator 4297a9b43e 04/29: Added another failing test for FIRST(x) were first symbol can be %empty
Date: Sat, 12 Feb 2022 02:24:42 -0500 (EST)

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

    Added another failing test for FIRST(x) were first symbol can be %empty
---
 parser-generator-lr.el           | 2 +-
 parser-generator.el              | 2 +-
 test/parser-generator-lr-test.el | 7 +++++++
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/parser-generator-lr.el b/parser-generator-lr.el
index 1c79e0162e..3718857c28 100644
--- a/parser-generator-lr.el
+++ b/parser-generator-lr.el
@@ -1558,7 +1558,7 @@
                   lr-item-suffix-first
                   lr-item-suffix)
                  (message
-                  "lr-item-suffix-rest: %s from %s + %s"
+                  "lr-item-suffix-rest: %s from %s + %s\n"
                   lr-item-suffix-rest
                   (cdr lr-item-suffix)
                   (nth 3 lr-item)))
diff --git a/parser-generator.el b/parser-generator.el
index 9c42cb114e..77e5ba28c8 100644
--- a/parser-generator.el
+++ b/parser-generator.el
@@ -45,7 +45,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 c5c06870b9..6a65c9ee8f 100644
--- a/test/parser-generator-lr-test.el
+++ b/test/parser-generator-lr-test.el
@@ -1215,6 +1215,13 @@
   (parser-generator-set-look-ahead-number 1)
   (parser-generator-process-grammar)
   (parser-generator-lr-generate-parser-tables)
+
+  ;; TODO Make this test pass
+  (should
+   (equal
+    (parser-generator--first '(inner_statement_list T_CASE))
+    '((T_CASE) (T_ECHO) (T_SWITCH))))
+
   (setq
    parser-generator-lex-analyzer--function
    (lambda (index)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]