mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-08 15:30:40 -08:00
85480527d5
* test/lisp/calendar/todo-mode-tests.el (todo-test-toggle-item-header02, todo-test-edit-item-date-month) (todo-test-multiline-item-indentation-1) (todo-test-multiline-item-indentation-2) (todo-test-multiline-item-indentation-3): * test/lisp/cedet/semantic-utest-ia.el (semantic-ia-utest-buffer) (semantic-sr-utest-buffer-refs): * test/lisp/cedet/semantic-utest.el (semantic-utest-kill-indicator) (semantic-utest-unkill-indicator): * test/lisp/dired-tests.el (dired-test-bug27968): * test/lisp/emacs-lisp/backtrace-tests.el (backtrace-tests--verify-single-and-multi-line): * test/lisp/emacs-lisp/find-func-tests.el (find-func-tests--find-library-verbose): * test/lisp/erc/erc-tests.el (erc-ring-previous-command) (erc-log-irc-protocol): * test/lisp/gnus/message-tests.el (message-mode-propertize): * test/lisp/info-xref-tests.el (info-xref-test-emacs-manuals): * test/lisp/mail/footnote-tests.el (footnote-tests-same-place): * test/lisp/progmodes/elisp-mode-tests.el (elisp-shorthand-completion-at-point): * test/lisp/progmodes/f90-tests.el (f90-test-bug38415): * test/lisp/progmodes/python-tests.el (python-indent-electric-comma-inside-multiline-string) (python-indent-electric-comma-after-multiline-string) (python-indent-electric-colon-1, python-indent-electric-colon-2) (python-indent-electric-colon-3, python-indent-electric-colon-4) (python-mark-defun-2, python-mark-defun-3, python-mark-defun-4) (python-mark-defun-5, python-nav-end-of-defun-2) (python-nav-end-of-statement-1, python-nav-end-of-block-1) (python-indent-dedent-line-backspace-2) (python-indent-dedent-line-backspace-3) (python-eldoc--get-symbol-at-point-1) (python-info-beginning-of-statement-p-1) (python-info-beginning-of-statement-p-2): * test/lisp/replace-tests.el (replace-occur-revert-bug32543) (replace-occur-revert-bug32987): * test/lisp/simple-tests.el (simple-delete-indentation-boundaries) (simple-delete-indentation-region) (line-number-at-pos-in-narrow-buffer) (line-number-at-pos-keeps-restriction): * test/lisp/textmodes/css-mode-tests.el (css-mode-test-selectors) (scss-mode-test-selectors): * test/lisp/textmodes/fill-tests.el (fill-test-unbreakable-paragraph) (fill-test-breakable-paragraph): * test/lisp/time-stamp-tests.el (time-stamp-custom-pattern): * test/src/lread-tests.el (lread-tests--last-message): * test/src/process-tests.el (set-process-filter-t): * test/src/undo-tests.el (undo-test-skip-invalidated-markers): Prefer pos-bol and pos-eol.
126 lines
3.9 KiB
EmacsLisp
126 lines
3.9 KiB
EmacsLisp
;;; fill-tests.el --- ERT tests for fill.el -*- lexical-binding: t -*-
|
|
|
|
;; Copyright (C) 2017-2022 Free Software Foundation, Inc.
|
|
|
|
;; Author: Marcin Borkowski <mbork@mbork.pl>
|
|
;; Keywords: text, wp
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;; This package defines tests for the filling feature, specifically
|
|
;; the `fill-polish-nobreak-p' function.
|
|
|
|
;;; Code:
|
|
|
|
(require 'ert)
|
|
|
|
(ert-deftest fill-test-no-fill-polish-nobreak-p nil
|
|
"Tests of the `fill-polish-nobreak-p' function."
|
|
(with-temp-buffer
|
|
(insert "Abc d efg (h ijk).")
|
|
(setq fill-column 8)
|
|
(setq-local fill-nobreak-predicate '())
|
|
(fill-paragraph)
|
|
(should (string= (buffer-string) "Abc d\nefg (h\nijk).")))
|
|
(with-temp-buffer
|
|
(insert "Abc d efg (h ijk).")
|
|
(setq fill-column 8)
|
|
(setq-local fill-nobreak-predicate '(fill-polish-nobreak-p))
|
|
(fill-paragraph)
|
|
(should (string= (buffer-string) "Abc\nd efg\n(h ijk)."))))
|
|
|
|
(ert-deftest fill-test-unbreakable-paragraph ()
|
|
;; See bug#45720 and bug#53537.
|
|
:expected-result :failed
|
|
(with-temp-buffer
|
|
(let ((string "aaa = baaaaaaaaaaaaaaaaaaaaaaaaaaaa\n"))
|
|
(insert string)
|
|
(goto-char (point-min))
|
|
(search-forward "b")
|
|
(let* ((pos (point))
|
|
(beg (pos-bol))
|
|
(end (pos-eol))
|
|
(fill-prefix (make-string (- pos beg) ?\s))
|
|
;; `fill-column' is too small to accommodate the current line
|
|
(fill-column (- end beg 10)))
|
|
(fill-region-as-paragraph beg end nil nil pos))
|
|
(should (equal (buffer-string) string)))))
|
|
|
|
(ert-deftest fill-test-breakable-paragraph ()
|
|
(with-temp-buffer
|
|
(let ((string "aaa = baaaaaaaa aaaaaaaaaa aaaaaaaaaa\n"))
|
|
(insert string)
|
|
(goto-char (point-min))
|
|
(search-forward "b")
|
|
(let* ((pos (point))
|
|
(beg (pos-bol))
|
|
(end (pos-eol))
|
|
(fill-prefix (make-string (- pos beg) ?\s))
|
|
;; `fill-column' is too small to accommodate the current line
|
|
(fill-column (- end beg 10)))
|
|
(fill-region-as-paragraph beg end nil nil pos))
|
|
(should (equal
|
|
(buffer-string)
|
|
"aaa = baaaaaaaa aaaaaaaaaa\n aaaaaaaaaa\n")))))
|
|
|
|
(ert-deftest test-fill-end-period ()
|
|
(should
|
|
(equal
|
|
(with-temp-buffer
|
|
(text-mode)
|
|
(auto-fill-mode)
|
|
(insert "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eius.")
|
|
(self-insert-command 1 ?\s)
|
|
(buffer-string))
|
|
"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eius. "))
|
|
(should
|
|
(equal
|
|
(with-temp-buffer
|
|
(text-mode)
|
|
(auto-fill-mode)
|
|
(insert "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eius.Foo")
|
|
(forward-char -3)
|
|
(self-insert-command 1 ?\s)
|
|
(buffer-string))
|
|
"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do
|
|
eius. Foo")))
|
|
|
|
(ert-deftest test-fill-haskell ()
|
|
(should
|
|
(equal
|
|
(with-temp-buffer
|
|
(asm-mode)
|
|
(dolist (line '(" ;; a b c"
|
|
" ;; d e f"
|
|
" ;; x y z"
|
|
" ;; w"))
|
|
(insert line "\n"))
|
|
(goto-char (point-min))
|
|
(end-of-line)
|
|
(setf fill-column 10)
|
|
(fill-paragraph nil)
|
|
(buffer-string))
|
|
" ;; a b c
|
|
;; d e f
|
|
;; x y z
|
|
;; w
|
|
")))
|
|
|
|
(provide 'fill-tests)
|
|
|
|
;;; fill-tests.el ends here
|