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

Reply via email to