From 9c362e293c09d4d09a33f278f806106e8b4621c3 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 14 Aug 2020 11:37:48 +0200 Subject: [PATCH] Add test for Bug#41761 * test/lisp/simple-tests.el (simple-test-count-words-bug-41761): New test. --- test/lisp/simple-tests.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index 4adcacb279b..63e504bbe17 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el @@ -38,6 +38,13 @@ ,@body (with-no-warnings (simple-test--buffer-substrings)))) + +;;; `count-words' +(ert-deftest simple-test-count-words-bug-41761 () + (with-temp-buffer + (dotimes (i 10) (insert (propertize "test " 'field (cons nil nil)))) + (should (= (count-words (point-min) (point-max)) 10)))) + ;;; `transpose-sexps' (defmacro simple-test--transpositions (&rest body) -- 2.39.5