masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-09 13:40:50 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions
emacs/test/lisp/mail/rfc2047-tests.el

61 lines
2.2 KiB
EmacsLisp
Raw Normal View History

Refactor rfc2047-fold-region slightly and add a couple of tests * lisp/mail/rfc2047.el (rfc2047--break-line): Refactor out to avoid code repetition... (rfc2047-fold-region): ... from this function.
2019-07-12 15:48:34 +02:00
;;; rfc2047-tests.el --- tests for rfc2047.el -*- lexical-binding: t -*-
; Add 2024 to copyright years
2024-01-02 09:47:10 +08:00
;; Copyright (C) 2019-2024 Free Software Foundation, Inc.
Refactor rfc2047-fold-region slightly and add a couple of tests * lisp/mail/rfc2047.el (rfc2047--break-line): Refactor out to avoid code repetition... (rfc2047-fold-region): ... from this function.
2019-07-12 15:48:34 +02:00
;; 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/>.
;;; Code:
(require 'ert)
(require 'rfc2047)
Fix breaking of rfc2047 headers with long words * lisp/mail/rfc2047.el (rfc2047-fold-region): Don't break lines right after the Header: field, but wait until the next whitespace. (This only makes a difference for words that are very long (i.e., longer than, say, 60 characters, depending on the header name length.)
2019-07-12 15:59:27 +02:00
(defun test-rfc2047 (before after)
Refactor rfc2047-fold-region slightly and add a couple of tests * lisp/mail/rfc2047.el (rfc2047--break-line): Refactor out to avoid code repetition... (rfc2047-fold-region): ... from this function.
2019-07-12 15:48:34 +02:00
(with-temp-buffer
Fix breaking of rfc2047 headers with long words * lisp/mail/rfc2047.el (rfc2047-fold-region): Don't break lines right after the Header: field, but wait until the next whitespace. (This only makes a difference for words that are very long (i.e., longer than, say, 60 characters, depending on the header name length.)
2019-07-12 15:59:27 +02:00
(insert before)
Refactor rfc2047-fold-region slightly and add a couple of tests * lisp/mail/rfc2047.el (rfc2047--break-line): Refactor out to avoid code repetition... (rfc2047-fold-region): ... from this function.
2019-07-12 15:48:34 +02:00
(goto-char (point-min))
(rfc2047-fold-field)
Fix breaking of rfc2047 headers with long words * lisp/mail/rfc2047.el (rfc2047-fold-region): Don't break lines right after the Header: field, but wait until the next whitespace. (This only makes a difference for words that are very long (i.e., longer than, say, 60 characters, depending on the header name length.)
2019-07-12 15:59:27 +02:00
(should (equal (buffer-string) after))))
(ert-deftest test-rfc2047-fold-short ()
(test-rfc2047
"Organization: Lots Of Short Words Here Lots Of Short Words Here Lots Of Short Words Here\n"
"Organization: Lots Of Short Words Here Lots Of Short Words Here Lots Of
Refactor rfc2047-fold-region slightly and add a couple of tests * lisp/mail/rfc2047.el (rfc2047--break-line): Refactor out to avoid code repetition... (rfc2047-fold-region): ... from this function.
2019-07-12 15:48:34 +02:00
Short Words Here
Fix breaking of rfc2047 headers with long words * lisp/mail/rfc2047.el (rfc2047-fold-region): Don't break lines right after the Header: field, but wait until the next whitespace. (This only makes a difference for words that are very long (i.e., longer than, say, 60 characters, depending on the header name length.)
2019-07-12 15:59:27 +02:00
"))
Refactor rfc2047-fold-region slightly and add a couple of tests * lisp/mail/rfc2047.el (rfc2047--break-line): Refactor out to avoid code repetition... (rfc2047-fold-region): ... from this function.
2019-07-12 15:48:34 +02:00
(ert-deftest test-rfc2047-fold-encoded ()
Fix breaking of rfc2047 headers with long words * lisp/mail/rfc2047.el (rfc2047-fold-region): Don't break lines right after the Header: field, but wait until the next whitespace. (This only makes a difference for words that are very long (i.e., longer than, say, 60 characters, depending on the header name length.)
2019-07-12 15:59:27 +02:00
(test-rfc2047
"Subject: This is =?utf-8?Q?=C3=A1?= long subject that's =?utf-8?Q?v=C3=A9ry?= long and =?utf-8?Q?ver=C3=BD?= encoded yes indeed it =?utf-8?Q?=C3=ADs?=\n"
"Subject: This is =?utf-8?Q?=C3=A1?= long subject that's
Refactor rfc2047-fold-region slightly and add a couple of tests * lisp/mail/rfc2047.el (rfc2047--break-line): Refactor out to avoid code repetition... (rfc2047-fold-region): ... from this function.
2019-07-12 15:48:34 +02:00
=?utf-8?Q?v=C3=A9ry?= long and =?utf-8?Q?ver=C3=BD?= encoded yes indeed it
=?utf-8?Q?=C3=ADs?=
Fix breaking of rfc2047 headers with long words * lisp/mail/rfc2047.el (rfc2047-fold-region): Don't break lines right after the Header: field, but wait until the next whitespace. (This only makes a difference for words that are very long (i.e., longer than, say, 60 characters, depending on the header name length.)
2019-07-12 15:59:27 +02:00
"))
(ert-deftest test-rfc2047-fold-long ()
(test-rfc2047
"Organization: verylongverylongverylongverylongverylongverylongverylongverylongverylongword and then\n"
"Organization: verylongverylongverylongverylongverylongverylongverylongverylongverylongword
and then
"))
(ert-deftest test-rfc2047-fold-long-short ()
(test-rfc2047
"Organization: verylongverylongverylongverylongverylongverylongverylongverylongverylongword\n"
"Organization: verylongverylongverylongverylongverylongverylongverylongverylongverylongword\n"))
Refactor rfc2047-fold-region slightly and add a couple of tests * lisp/mail/rfc2047.el (rfc2047--break-line): Refactor out to avoid code repetition... (rfc2047-fold-region): ... from this function.
2019-07-12 15:48:34 +02:00
;;; rfc2047-tests.el ends here
Reference in a new issue Copy permalink