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

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

Browse source
This commit is contained in:
Michael Albinus 2023-08-06 14:30:57 +02:00
parent 16205e8db6
commit 7c7966862b
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
test/lisp/net/tramp-tests.el
View file

@ -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))))))