[Emacs-diffs] master 4c08509: * test/lisp/net/tramp-tests.el: Keep additional test.

[Michael Albinus]

branch: master
commit 4c08509b3a250781039b9f957a9615ea9afe6aa9
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * test/lisp/net/tramp-tests.el: Keep additional test.
---
 test/lisp/net/tramp-tests.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 8db5497..a380e95 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -1744,12 +1744,14 @@ This checks also `file-name-as-directory', 
`file-name-directory',
     (let ((tmp-name (tramp--test-make-temp-name nil quoted)))
       (unwind-protect
          (progn
+            ;; Write buffer.
            (with-temp-buffer
              (insert "foo")
              (write-region nil nil tmp-name))
            (with-temp-buffer
              (insert-file-contents tmp-name)
              (should (string-equal (buffer-string) "foo")))
+
            ;; Append.
            (with-temp-buffer
              (insert "bla")
@@ -1757,11 +1759,19 @@ This checks also `file-name-as-directory', 
`file-name-directory',
            (with-temp-buffer
              (insert-file-contents tmp-name)
              (should (string-equal (buffer-string) "foobla")))
+           (with-temp-buffer
+             (insert "baz")
+             (write-region nil nil tmp-name 3))
+           (with-temp-buffer
+             (insert-file-contents tmp-name)
+             (should (string-equal (buffer-string) "foobaz")))
+
            ;; Write string.
            (write-region "foo" nil tmp-name)
            (with-temp-buffer
              (insert-file-contents tmp-name)
              (should (string-equal (buffer-string) "foo")))
+
            ;; Write partly.
            (with-temp-buffer
              (insert "123456789")