From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 14 Aug 2020 09:37:48 +0000 (+0200)
Subject: Add test for Bug#41761
X-Git-Tag: emacs-28.0.90~6592
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c362e293c09d4d09a33f278f806106e8b4621c3;p=emacs.git

Add test for Bug#41761

* test/lisp/simple-tests.el (simple-test-count-words-bug-41761):
New test.
---

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)