branch: externals/parser-generator
commit d360e8a0c749bc19f48026f9723328a820739746
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Added failing unit test for FIRST function with starting e-identifier
---
test/parser-generator-test.el | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/test/parser-generator-test.el b/test/parser-generator-test.el
index a355942..ec13ce4 100644
--- a/test/parser-generator-test.el
+++ b/test/parser-generator-test.el
@@ -296,6 +296,15 @@
(parser-generator--first 'S)))
(message "Passed first 3 with complex grammar")
+ (parser-generator-set-grammar '((Sp S) (a b) ((Sp S) (S (S a S b)) (S e))
Sp))
+ (parser-generator-set-look-ahead-number 2)
+ (parser-generator-process-grammar)
+ (should
+ (equal
+ '((a a) (a e) (e))
+ (parser-generator--first 'S)))
+ (message "Passed first 4 with complex grammar with starting e-identifier")
+
(message "Passed tests for (parser-generator--first)"))
(defun parser-generator-test--e-free-first ()
@@ -343,7 +352,7 @@
(parser-generator--e-free-first '(a e))))
(should
(equal
- '((a e))
+ '((a e) (a a))
(parser-generator--e-free-first '(a S))))
(message "Passed empty-free-first 2 with trailing e-identifier")
