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

* test/lisp/gnus/message-tests.el (message-default-buffer-type): New test.

Browse source
This commit is contained in:
Michael Albinus 2025-03-25 19:48:06 +01:00
parent ce0c1f4442
commit 56248fad53
1 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
test/lisp/gnus/message-tests.el
View file

@ -179,6 +179,31 @@ Hello.
;; (should-error (re-search-forward "Cc:"))
)))
(ert-deftest message-default-buffer-type ()
(let ((buf (get-buffer-create (md5 (current-time-string)) 'inhibit)))
(unwind-protect
(ert-with-test-buffer (:name "message")
(insert "From: dang@gnus.org
To: user1
--text follows this line--
")
;; Any mode.
(save-excursion
(ert-simulate-keys (concat (buffer-name buf) "\r\r\r\r")
(call-interactively 'mml-attach-buffer)))
(save-excursion
(should (re-search-forward "type=\"text/plain\"" nil 'noerror)))
;; Diff mode.
(with-current-buffer buf (diff-mode))
(save-excursion
(ert-simulate-keys (concat (buffer-name buf) "\r\r\r\r")
(call-interactively 'mml-attach-buffer)))
(save-excursion
(should (re-search-forward "type=\"text/x-patch\"" nil 'noerror))))
;; Cleanup.
(kill-buffer buf)
(ert-kill-all-test-buffers))))
(provide 'message-mode-tests)
;;; message-tests.el ends here