diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-02-08 00:24:11 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-02-08 00:24:36 +0100 |
commit | 651aefa31246a786891e2e743800dbf753223928 (patch) | |
tree | 5b3a263611cf493e8803f9bb4a0ca150927eca8e | |
parent | fa735ebc0cd4fbb96ae05b494f7728f5707a8536 (diff) | |
download | emacs-651aefa31246a786891e2e743800dbf753223928.tar.gz |
Add tests for count-lines
* test/lisp/simple-tests.el (simple-test-count-lines)
(simple-test-count-lines/ignore-invisible-lines): Add tests.
-rw-r--r-- | test/lisp/simple-tests.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index 7b022811a5c..b4007a6c3f3 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el @@ -48,6 +48,26 @@ (should (= (count-words (point-min) (point-max)) 10)))) +;;; `count-lines' + +(ert-deftest simple-test-count-lines () + (with-temp-buffer + (should (= (count-lines (point-min) (point-max)) 0)) + (insert "foo") + (should (= (count-lines (point-min) (point-max)) 1)) + (insert "\nbar\nbaz\n") + (should (= (count-lines (point-min) (point-max)) 3)) + (insert "r\n") + (should (= (count-lines (point-min) (point-max)) 4)))) + +(ert-deftest simple-test-count-lines/ignore-invisible-lines () + (with-temp-buffer + (insert "foo\nbar") + (should (= (count-lines (point-min) (point-max) t) 2)) + (insert (propertize "\nbar\nbaz\nzut" 'invisible t)) + (should (= (count-lines (point-min) (point-max) t) 2)))) + + ;;; `transpose-sexps' (defmacro simple-test--transpositions (&rest body) (declare (indent 0) |