From: Tino Calancha <tino.calancha@gmail.com>
Date: Thu, 13 Oct 2016 08:56:22 +0000 (+0900)
Subject: Add test for Bug#24627
X-Git-Tag: emacs-26.0.90~1481
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0f1d23ec482aa71a0ae0251f6f44f4b8d261259;p=emacs.git

Add test for Bug#24627

* /test/lisp/thingatpt-tests.el (thing-at-point-bug24627): New test.
---

diff --git a/test/lisp/thingatpt-tests.el b/test/lisp/thingatpt-tests.el
index d3ecbf8c642..2b8e06721a8 100644
--- a/test/lisp/thingatpt-tests.el
+++ b/test/lisp/thingatpt-tests.el
@@ -84,4 +84,19 @@ position to retrieve THING.")
       (goto-char (nth 1 test))
       (should (equal (thing-at-point (nth 2 test)) (nth 3 test))))))
 
+(ert-deftest thing-at-point-bug24627 ()
+  "Test for http://debbugs.gnu.org/24627 ."
+  :expected-result :failed
+  (let ((file
+         (expand-file-name "lisp/thingatpt.el" source-directory))
+        buf)
+    (when (file-exists-p file)
+      (unwind-protect
+          (progn
+            (setq buf (find-file file))
+            (goto-char (point-max))
+            (forward-line -1)
+            (should-not (thing-at-point 'list)))
+        (kill-buffer buf)))))
+
 ;;; thingatpt.el ends here