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

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

[elpa] externals/parser-generator 3964649 359/434: Added more failing un


From: ELPA Syncer
Subject: [elpa] externals/parser-generator 3964649 359/434: Added more failing unit tests
Date: Mon, 29 Nov 2021 16:00:15 -0500 (EST)

branch: externals/parser-generator
commit 3964649b5ac5975755e0e1f83fe8f560d8349299
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@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

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