From ff0fa006cae4b6220a5e765e25f3eef1f46edef0 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 13 Jun 2019 23:46:04 +0200 Subject: [PATCH] Add tests for count-lines-page and what-page * test/lisp/textmodes/page-tests.el (page-tests-count-lines-page) (page-tests-what-page): New test cases. (bug#36009) --- test/lisp/textmodes/page-tests.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/test/lisp/textmodes/page-tests.el b/test/lisp/textmodes/page-tests.el index 0834d65433..8d2a036022 100644 --- a/test/lisp/textmodes/page-tests.el +++ b/test/lisp/textmodes/page-tests.el @@ -82,5 +82,24 @@ page-tests--region-string (narrow-to-page -1) (should (equal (buffer-string) "bar\n")))) +(ert-deftest page-tests-count-lines-page () + (with-temp-buffer + (insert "foo\n \nbar\n \nbaz") + (goto-char (point-min)) + (should (equal (count-lines-page) "Page has 1 line (0 + 1)")) + (goto-char (point-max)) + (count-lines-page) + (should (equal (count-lines-page) "Page has 2 lines (2 + 0)")))) + +(ert-deftest page-tests-what-page () + (with-temp-buffer + (insert "foo\n \nbar\n \nbaz") + (goto-char (point-min)) + (should (equal (what-page) "Page 1, line 1")) + (forward-page) + (should (equal (what-page) "Page 2, line 2")) + (forward-page) + (should (equal (what-page) "Page 3, line 4")))) + (provide 'page-tests) ;;; page-tests.el ends here -- 2.11.0