[Emacs-diffs] master b0f1d23: Add test for Bug#24627

[Tino Calancha]

branch: master
commit b0f1d23ec482aa71a0ae0251f6f44f4b8d261259
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>

    Add test for Bug#24627
    
    * /test/lisp/thingatpt-tests.el (thing-at-point-bug24627): New test.
---
 test/lisp/thingatpt-tests.el |   15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/test/lisp/thingatpt-tests.el b/test/lisp/thingatpt-tests.el
index d3ecbf8..2b8e067 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