Commit 1ad94a12 authored by Marcin Borkowski's avatar Marcin Borkowski

Add simple tests for the `fill-polish-nobreak-p' function

* test/lisp/textmodes/fill-tests.el:
(fill-test-no-fill-polish-nobreak-p): New test
parent 0e3c10ce
Pipeline #11 failed with stage
;;; fill-test.el --- ERT tests for fill.el -*- lexical-binding: t -*-
;; Copyright (C) 2017 Free Software Foundation, Inc.
;; Author: Marcin Borkowski <>
;; 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
;; 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 <>.
;;; 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."
(insert "Abc d efg (h ijk).")
(setq fill-column 8)
(setq-local fill-nobreak-predicate '())
(should (string= (buffer-string) "Abc d\nefg (h\nijk).")))
(insert "Abc d efg (h ijk).")
(setq fill-column 8)
(setq-local fill-nobreak-predicate '(fill-polish-nobreak-p))
(should (string= (buffer-string) "Abc\nd efg\n(h ijk)."))))
(provide 'fill-tests)
;;; fill-tests.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment