Commit 5a969365 authored by Stefan Kangas's avatar Stefan Kangas Committed by Eli Zaretskii

Add tests for mail/flow-fill.el

* test/lisp/mail/flow-fill-tests.el: New file.
* lisp/mail/flow-fill.el (fill-flowed-encode-tests)
(fill-flowed-test): Make obsolete.  (Bug#36174)
parent 54256143
...@@ -165,74 +165,15 @@ RFC 2646 suggests 66 characters for readability." ...@@ -165,74 +165,15 @@ RFC 2646 suggests 66 characters for readability."
(forward-line 1) (forward-line 1)
nil)))))))) nil))))))))
;; Test vectors. (make-obsolete-variable 'fill-flowed-encode-tests nil "27.1")
(defvar fill-flowed-encode-tests)
(defvar show-trailing-whitespace)
(defvar fill-flowed-encode-tests
`(
;; The syntax of each list element is:
;; (INPUT . EXPECTED-OUTPUT)
(,(concat
"> Thou villainous ill-breeding spongy dizzy-eyed \n"
"> reeky elf-skinned pigeon-egg! \n"
">> Thou artless swag-bellied milk-livered \n"
">> dismal-dreaming idle-headed scut!\n"
">>> Thou errant folly-fallen spleeny reeling-ripe \n"
">>> unmuzzled ratsbane!\n"
">>>> Henceforth, the coding style is to be strictly \n"
">>>> enforced, including the use of only upper case.\n"
">>>>> I've noticed a lack of adherence to the coding \n"
">>>>> styles, of late.\n"
">>>>>> Any complaints?")
.
,(concat
"> Thou villainous ill-breeding spongy dizzy-eyed reeky elf-skinned\n"
"> pigeon-egg! \n"
">> Thou artless swag-bellied milk-livered dismal-dreaming idle-headed\n"
">> scut!\n"
">>> Thou errant folly-fallen spleeny reeling-ripe unmuzzled ratsbane!\n"
">>>> Henceforth, the coding style is to be strictly enforced,\n"
">>>> including the use of only upper case.\n"
">>>>> I've noticed a lack of adherence to the coding styles, of late.\n"
">>>>>> Any complaints?\n"
))
;; (,(concat
;; "\n"
;; "> foo\n"
;; "> \n"
;; "> \n"
;; "> bar\n")
;; .
;; ,(concat
;; "\n"
;; "> foo bar\n"))
))
(defun fill-flowed-test () (defun fill-flowed-test ()
(interactive "") (interactive "")
(switch-to-buffer (get-buffer-create "*Format=Flowed test output*")) (declare (obsolete nil "27.1"))
(erase-buffer) (user-error (concat "This function is obsolete. Please see "
(setq show-trailing-whitespace t) "test/lisp/mail/flow-fill-tests.el "
(dolist (test fill-flowed-encode-tests) "in the Emacs source tree")))
(let (start output)
(insert "***** BEGIN TEST INPUT *****\n")
(insert (car test))
(insert "***** END TEST INPUT *****\n\n")
(insert "***** BEGIN TEST OUTPUT *****\n")
(setq start (point))
(insert (car test))
(save-restriction
(narrow-to-region start (point))
(fill-flowed))
(setq output (buffer-substring start (point-max)))
(insert "***** END TEST OUTPUT *****\n")
(unless (string= output (cdr test))
(insert "\n***** BEGIN TEST EXPECTED OUTPUT *****\n")
(insert (cdr test))
(insert "***** END TEST EXPECTED OUTPUT *****\n"))
(insert "\n\n")))
(goto-char (point-max)))
(provide 'flow-fill) (provide 'flow-fill)
......
;;; flow-fill-tests.el --- Tests for flow-fill.el -*- lexical-binding: t -*-
;; Copyright (C) 2019 Free Software Foundation, Inc.
;; 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:
;;; Code:
(require 'ert)
(require 'flow-fill)
(ert-deftest fill-flow-tests-fill-flowed-encode ()
(let ((input
(concat
"> Thou villainous ill-breeding spongy dizzy-eyed \n"
"> reeky elf-skinned pigeon-egg! \n"
">> Thou artless swag-bellied milk-livered \n"
">> dismal-dreaming idle-headed scut!\n"
">>> Thou errant folly-fallen spleeny reeling-ripe \n"
">>> unmuzzled ratsbane!\n"
">>>> Henceforth, the coding style is to be strictly \n"
">>>> enforced, including the use of only upper case.\n"
">>>>> I've noticed a lack of adherence to the coding \n"
">>>>> styles, of late.\n"
">>>>>> Any complaints?\n"))
(output
(concat
"> Thou villainous ill-breeding spongy dizzy-eyed reeky elf-skinned\n"
"> pigeon-egg! \n"
">> Thou artless swag-bellied milk-livered dismal-dreaming idle-headed\n"
">> scut!\n"
">>> Thou errant folly-fallen spleeny reeling-ripe unmuzzled ratsbane!\n"
">>>> Henceforth, the coding style is to be strictly enforced,\n"
">>>> including the use of only upper case.\n"
">>>>> I've noticed a lack of adherence to the coding styles, of late.\n"
">>>>>> Any complaints?\n"))
(fill-flowed-display-column 69))
(with-temp-buffer
(insert input)
(fill-flowed)
(should (equal (buffer-string) output)))))
(ert-deftest fill-flow-tests-fill-flowed-encode ()
(let ((input
(concat
"> Thou villainous ill-breeding spongy dizzy-eyed \n"
"> reeky elf-skinned pigeon-egg! \n"
">> Thou artless swag-bellied milk-livered \n"
">> dismal-dreaming idle-headed scut!\n"
">>> Thou errant folly-fallen spleeny reeling-ripe \n"
">>> unmuzzled ratsbane!\n"
">>>> Henceforth, the coding style is to be strictly \n"
">>>> enforced, including the use of only upper case.\n"
">>>>> I've noticed a lack of adherence to the coding \n"
">>>>> styles, of late.\n"
">>>>>> Any complaints?\n"))
(output
(concat
"> Thou villainous ill-breeding spongy dizzy-eyed \n"
"> reeky elf-skinned pigeon-egg! \n"
">> Thou artless swag-bellied milk-livered \n"
">> dismal-dreaming idle-headed scut!\n"
">>> Thou errant folly-fallen spleeny reeling-ripe \n"
">>> unmuzzled ratsbane!\n"
">>>> Henceforth, the coding style is to be strictly \n"
">>>> enforced, including the use of only upper case.\n"
">>>>> I've noticed a lack of adherence to the coding \n"
">>>>> styles, of late.\n"
">>>>>> Any complaints?\n"))
(fill-flowed-display-column 69))
(with-temp-buffer
(insert input)
(fill-flowed-encode)
(should (equal (buffer-string) output)))))
(provide 'flow-fill-tests)
;;; flow-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