diff options
| author | Michael Albinus | 2023-08-06 14:30:57 +0200 |
|---|---|---|
| committer | Michael Albinus | 2023-08-06 14:30:57 +0200 |
| commit | 7c7966862bc0126e0f5b8c6d760cc3293d9a87f6 (patch) | |
| tree | 9f6a268c58e6f3c79182127a3aa505af531ef948 /test | |
| parent | 16205e8db65446845967f7ad95f3bbe417b67cbd (diff) | |
| download | emacs-7c7966862bc0126e0f5b8c6d760cc3293d9a87f6.tar.gz emacs-7c7966862bc0126e0f5b8c6d760cc3293d9a87f6.zip | |
* test/lisp/net/tramp-tests.el (tramp-test10-write-region): Extend test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 13 |
1 files changed, 12 insertions, 1 deletions
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', | |||
| 2676 | :type 'file-already-exists) | 2676 | :type 'file-already-exists) |
| 2677 | (should-error | 2677 | (should-error |
| 2678 | (write-region "foo" nil tmp-name nil nil nil 'excl) | 2678 | (write-region "foo" nil tmp-name nil nil nil 'excl) |
| 2679 | :type 'file-already-exists)) | 2679 | :type 'file-already-exists) |
| 2680 | (delete-file tmp-name) | ||
| 2681 | |||
| 2682 | ;; Check `buffer-file-coding-system'. Bug#65022. | ||
| 2683 | (with-temp-buffer | ||
| 2684 | (setq buffer-file-name tmp-name) | ||
| 2685 | (insert "foo") | ||
| 2686 | (set-buffer-file-coding-system 'cp1251) | ||
| 2687 | (let ((bfcs buffer-file-coding-system)) | ||
| 2688 | (should (buffer-modified-p)) | ||
| 2689 | (should (null (save-buffer))) | ||
| 2690 | (should (eq buffer-file-coding-system bfcs))))) | ||
| 2680 | 2691 | ||
| 2681 | ;; Cleanup. | 2692 | ;; Cleanup. |
| 2682 | (ignore-errors (delete-file tmp-name)))))) | 2693 | (ignore-errors (delete-file tmp-name)))))) |