* test/lisp/net/tramp-tests.el: Keep additional test.

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 8db54979b6d4fee9ef3b3e5f413ffe0599729064..a380e95c1a14a6e1035b0cd68f1ca6f2245ee98b 100644 (file)
--- 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")