From b0f1d23ec482aa71a0ae0251f6f44f4b8d261259 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Thu, 13 Oct 2016 17:56:22 +0900 Subject: [PATCH] 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 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 -- 2.39.5