From 56248fad53cb1476b9f460044c0c73f986a0bbac Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 25 Mar 2025 19:48:06 +0100 Subject: [PATCH] * test/lisp/gnus/message-tests.el (message-default-buffer-type): New test. --- test/lisp/gnus/message-tests.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/test/lisp/gnus/message-tests.el b/test/lisp/gnus/message-tests.el index a3bbf4c025c..7c290486f26 100644 --- a/test/lisp/gnus/message-tests.el +++ b/test/lisp/gnus/message-tests.el @@ -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