[elpa] externals/parser-generator aa8a2bf 391/434: Work on the tests for the exported lr-parser

[ELPA Syncer]

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

    Work on the tests for the exported lr-parser
---
 Makefile                                |  2 +-
 test/parser-generator-lr-export-test.el | 22 +++++++++++++++-------
 2 files changed, 16 insertions(+), 8 deletions(-)

diff --git a/Makefile b/Makefile
index f9c11e8..4965a61 100644
--- a/Makefile
+++ b/Makefile
@@ -32,4 +32,4 @@ test-lr-export:
        $(EMACS_CMD) -l test/parser-generator-lr-export-test.el -f 
"parser-generator-lr-export-test"
 
 .PHONY: tests
-tests: test test-lex-analyzer test-lr #test-lr-export
+tests: test test-lex-analyzer test-lr test-lr-export
diff --git a/test/parser-generator-lr-export-test.el 
b/test/parser-generator-lr-export-test.el
index 9988a53..0d8b30a 100644
--- a/test/parser-generator-lr-export-test.el
+++ b/test/parser-generator-lr-export-test.el
@@ -18,7 +18,15 @@
     (switch-to-buffer buffer)
     (insert "aabb")
 
-    (parser-generator-set-grammar '((Sp S) ("a" "b") ((Sp S) (S (S "a" S "b" 
(lambda(args) (let ((list "")) (dolist (item args) (when item (setq list 
(format "%s%s" item list)))) list)))) (S e)) Sp))
+    (parser-generator-set-grammar
+     '(
+       (Sp S)
+       ("a" "b")
+       (
+        (Sp S)
+        (S (S "a" S "b" (lambda(args) (let ((list "")) (dolist (item args) 
(when item (setq list (format "%s%s" item list)))) list))))
+        (S e)
+        ) Sp))
     (parser-generator-set-look-ahead-number 1)
     (parser-generator-process-grammar)
     (parser-generator-lr-generate-parser-tables)
@@ -48,7 +56,7 @@
       (parser-generator-lr-parse)))
     (should
      (equal
-      "bbaaba"
+      "bbaa"
       (parser-generator-lr-translate)))
 
     ;; Export parser
@@ -76,7 +84,7 @@
       (when (fboundp 'ba-translate)
         (should
          (equal
-          "bbaaba"
+          "bbaa"
           (ba-translate))))))
 
   (should
@@ -216,7 +224,7 @@
 
     (should
      (equal
-      "bbaaba"
+      "bbaa"
       (parser-generator-lr-translate)))
 
     (message "Passed translate before export")
@@ -236,7 +244,7 @@
       (when (fboundp 'fa-translate)
         (should
          (equal
-          "bbaaba"
+          "bbaa"
           (fa-translate))))
       (message "Passed translate for exported parser")))
 
@@ -276,7 +284,7 @@
 
     (should
      (equal
-      "bbaaba"
+      "bbaa"
       (parser-generator-lr-translate)))
 
     (message "Passed translate before export")
@@ -294,7 +302,7 @@
       (when (fboundp 'fa-translate)
         (should
          (equal
-          "bbaaba"
+          "bbaa"
           (fa-translate))))
       (message "Passed translate for exported parser")))