procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add tests for mail/flow-fill.el

Browse source 
* 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)
This commit is contained in:
Stefan Kangas 2019-06-11 23:35:15 +02:00 • committed by Eli Zaretskii
parent 54256143ef
commit 5a96936520
2 changed files with 98 additions and 65 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

71
lisp/mail/flow-fill.el
View file

@ -165,74 +165,15 @@ RFC 2646 suggests 66 characters for readability."
(forward-line 1)
nil))))))))
;; Test vectors.
(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"))
))
(make-obsolete-variable 'fill-flowed-encode-tests nil "27.1")
(defvar fill-flowed-encode-tests)
(defun fill-flowed-test ()
(interactive "")
(switch-to-buffer (get-buffer-create "*Format=Flowed test output*"))
(erase-buffer)
(setq show-trailing-whitespace t)
(dolist (test fill-flowed-encode-tests)
(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)))
(declare (obsolete nil "27.1"))
(user-error (concat "This function is obsolete. Please see "
"test/lisp/mail/flow-fill-tests.el "
"in the Emacs source tree")))
(provide 'flow-fill)

92
test/lisp/mail/flow-fill-tests.el Normal file
View file

@ -0,0 +1,92 @@
;;; 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