From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 6 Aug 2023 12:30:57 +0000 (+0200)
Subject: * test/lisp/net/tramp-tests.el (tramp-test10-write-region): Extend test.
X-Git-Tag: emacs-29.1.90~248
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c7966862bc0126e0f5b8c6d760cc3293d9a87f6;p=emacs.git

* test/lisp/net/tramp-tests.el (tramp-test10-write-region): Extend test.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 00e368abe4d..f4938cf9a01 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2676,7 +2676,18 @@ This checks also `file-name-as-directory', `file-name-directory',
              :type 'file-already-exists)
 	    (should-error
 	     (write-region "foo" nil tmp-name nil nil nil 'excl)
-	     :type 'file-already-exists))
+	     :type 'file-already-exists)
+	    (delete-file tmp-name)
+
+	    ;; Check `buffer-file-coding-system'.  Bug#65022.
+	    (with-temp-buffer
+	      (setq buffer-file-name tmp-name)
+	      (insert "foo")
+	      (set-buffer-file-coding-system 'cp1251)
+	      (let ((bfcs buffer-file-coding-system))
+		(should (buffer-modified-p))
+		(should (null (save-buffer)))
+		(should (eq buffer-file-coding-system bfcs)))))
 
 	;; Cleanup.
 	(ignore-errors (delete-file tmp-name))))))