emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] master 7ad5e39: ; Add test for Bug#36092


From: Noam Postavsky
Subject: [Emacs-diffs] master 7ad5e39: ; Add test for Bug#36092
Date: Wed, 5 Jun 2019 09:11:36 -0400 (EDT)

branch: master
commit 7ad5e3915fe0fad7c8053b53cab1aa7aa74193fe
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    ; Add test for Bug#36092
    
    * test/lisp/nxml/nxml-mode-tests.el (nxml-mode->-after-quote): New
    test.
---
 test/lisp/nxml/nxml-mode-tests.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/test/lisp/nxml/nxml-mode-tests.el 
b/test/lisp/nxml/nxml-mode-tests.el
index 70816bb..53416b4 100644
--- a/test/lisp/nxml/nxml-mode-tests.el
+++ b/test/lisp/nxml/nxml-mode-tests.el
@@ -99,5 +99,20 @@
     (should (nth 4 (syntax-ppss)))
     (search-forward "comment3")))
 
+(ert-deftest nxml-mode->-after-quote ()
+  "Reduction from Bug#36092."
+  (with-temp-buffer
+    (insert "<root>\n"
+            (make-string 1794 ?a) "\n"
+            "'>"
+            (make-string 196 ?a) "\n"
+            "</root>")
+    (nxml-mode)
+    (syntax-propertize 2001)
+    (syntax-propertize (point-max))     ; Triggered an assert failure.
+    ;; Check that last tag is parsed as a tag.
+    (should (= 1 (- (car (syntax-ppss (1- (point-max))))
+                    (car (syntax-ppss (point-max))))))))
+
 (provide 'nxml-mode-tests)
 ;;; nxml-mode-tests.el ends here



reply via email to

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