mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Improve tests for flow-fill

Browse Source 
* test/lisp/mail/flow-fill-tests.el
(fill-flow-tests-fill-flowed-decode): Remove debug message.
(fill-flow-tests-fill-flowed-encode): Actually test function
`fill-flowed-encode', which requires `use-hard-newline' to be
non-nil.  Also adjust test input to check behavior of the
function under different cases.  (Bug#72870)
This commit is contained in:
Pengji Zhang 2024-08-28 19:11:35 +08:00 committed by Eli Zaretskii
parent fc214b6683
commit c3600916b6
1 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
test/lisp/mail/flow-fill-tests.el
View File

@ -54,37 +54,43 @@
(with-temp-buffer
(insert input)
(fill-flowed)
(message "foo")
(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"
;; Hard newline in the middle of a level
"> Thou villainous ill-breeding spongy dizzy-eyed" hard-newline
"> reeky elf-skinned pigeon-egg!\n"
">> Thou artless swag-bellied milk-livered\n"
;; Hard new line at the end of a level
">> dismal-dreaming idle-headed scut!" hard-newline
;; Trailing space should be preserved after filling
">>> Thou errant folly-fallen spleeny reeling-ripe \n"
">>> unmuzzled ratsbane!\n"
">>>> Henceforth, the coding style is to be strictly \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"
;; Consecutive hard newlines within a level
">>>>> I've noticed a lack of adherence to" hard-newline
">>>>> the coding" hard-newline
">>>>> styles, of late.\n"
">>>>>> Any complaints?\n"))
(output
(concat
"> Thou villainous ill-breeding spongy dizzy-eyed \n"
"> 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))
">> Thou artless swag-bellied milk-livered dismal-dreaming \n"
">> idle-headed scut!\n"
">>> Thou errant folly-fallen spleeny reeling-ripe unmuzzled \n"
">>> 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\n"
">>>>> the coding\n"
">>>>> styles, of late. \n"
">>>>>> Any complaints? \n"))
(use-hard-newlines t)
(fill-flowed-encode-column 66))
(with-temp-buffer
(insert input)
(fill-flowed-encode)