[elpa] externals/parser-generator ded7700 387/434: Added more test for infix precedence

[ELPA Syncer]

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

    Added more test for infix precedence
---
 test/parser-generator-lr-test.el | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/test/parser-generator-lr-test.el b/test/parser-generator-lr-test.el
index a9aed0f..e0e19f6 100644
--- a/test/parser-generator-lr-test.el
+++ b/test/parser-generator-lr-test.el
@@ -484,35 +484,36 @@
 
     (let ((buffer (generate-new-buffer "*buffer*")))
     (switch-to-buffer buffer)
+
+    (kill-region (point-min) (point-max))
     (insert "2+3*5\n")
     (let ((translate (parser-generator-lr-translate)))
       (should
        (equal
         17
         translate)))
-    (kill-buffer))
-  (message "Passed correct precedence of 2+3*5 => 2+(3*5) = 17")
+    (message "Passed correct precedence of 2+3*5 => 2+(3*5) = 17")
 
-  (let ((buffer (generate-new-buffer "*buffer*")))
-    (switch-to-buffer buffer)
+    (kill-region (point-min) (point-max))
     (insert "2*3+5\n")
     (let ((translate (parser-generator-lr-translate)))
       (should
        (equal
         11
         translate)))
-    (kill-buffer))
-  (message "Passed correct precedence of 2*3+5 => (2*3)+5 = 11")
-
-  ;; Add context-sensitive precedence that should solve cases of -X
-  (setq
-   parser-generator-lr--context-sensitive-precedence-attribute
-   '%prec)
-  (parser-generator-lr-generate-parser-tables)
+    (message "Passed correct precedence of 2*3+5 => (2*3)+5 = 11")
 
-  ;; TODO Test-cases
+    ;; TODO Should make this work
+    (kill-region (point-min) (point-max))
+    (insert "4 + 4.5 - (34/(8*3+-3))\n")
+    (let ((translate (parser-generator-lr-translate)))
+      (should
+       (equal
+        6.880952381
+        translate)))
+    (message "Passed correct precedence of 4 + 4.5 - (34/(8*3+-3)) = 
6.880952381")
 
-  (error "here")
+    (kill-buffer))
 
   (message "Passed tests for 
(parser-generator-lr--generate-precedence-tables)"))