branch: externals/parser-generator commit 3964649b5ac5975755e0e1f83fe8f560d8349299 Author: Christian Johansson <christ...@cvj.se> Commit: Christian Johansson <christ...@cvj.se>
Added more failing unit tests --- test/parser-generator-lr-test.el | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/test/parser-generator-lr-test.el b/test/parser-generator-lr-test.el index cfb4c41..38f3391 100644 --- a/test/parser-generator-lr-test.el +++ b/test/parser-generator-lr-test.el @@ -584,12 +584,12 @@ (let ((buffer (generate-new-buffer "*buffer*"))) (switch-to-buffer buffer) (kill-region (point-min) (point-max)) - (insert "5+5\n") + (insert "5 + 5\n") (should (equal 10 (parser-generator-lr-translate))) - (message "Passed 5+5") + (message "Passed 5 + 5") (switch-to-buffer buffer) (kill-region (point-min) (point-max)) @@ -852,6 +852,24 @@ (switch-to-buffer buffer) (kill-region (point-min) (point-max)) + (insert "3 ^ 2") + (should + (equal + 9 + (parser-generator-lr-translate))) + (message "Passed 3 ^ 2") + + (switch-to-buffer buffer) + (kill-region (point-min) (point-max)) + (insert "-56 + 2") + (should + (equal + -54 + (parser-generator-lr-translate))) + (message "Passed -56 + 2") + + (switch-to-buffer buffer) + (kill-region (point-min) (point-max)) (insert "4 + 4.5 - (34/(8*3+-3))") (should (equal