aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/lisp/net/tramp-tests.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 180f746c647..557536a0ebc 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -3533,9 +3533,10 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
3533 (file-attributes tmp-name1)) 3533 (file-attributes tmp-name1))
3534 tramp-time-dont-know) 3534 tramp-time-dont-know)
3535 (should 3535 (should
3536 (equal (tramp-compat-file-attribute-modification-time 3536 (tramp-compat-time-equal-p
3537 (file-attributes tmp-name1)) 3537 (tramp-compat-file-attribute-modification-time
3538 (seconds-to-time 1))) 3538 (file-attributes tmp-name1))
3539 (seconds-to-time 1)))
3539 (write-region "bla" nil tmp-name2) 3540 (write-region "bla" nil tmp-name2)
3540 (should (file-exists-p tmp-name2)) 3541 (should (file-exists-p tmp-name2))
3541 (should (file-newer-than-file-p tmp-name2 tmp-name1)) 3542 (should (file-newer-than-file-p tmp-name2 tmp-name1))
@@ -4182,8 +4183,9 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
4182 (with-timeout (10 (tramp--test-timeout-handler)) 4183 (with-timeout (10 (tramp--test-timeout-handler))
4183 (while (accept-process-output proc 0 nil t))) 4184 (while (accept-process-output proc 0 nil t)))
4184 ;; We cannot use `string-equal', because tramp-adb.el 4185 ;; We cannot use `string-equal', because tramp-adb.el
4185 ;; echoes also the sent string. 4186 ;; echoes also the sent string. And a remote macOS sends
4186 (should (string-match "killed\n\\'" (buffer-string)))) 4187 ;; a slightly modified string.
4188 (should (string-match "killed.*\n\\'" (buffer-string))))
4187 4189
4188 ;; Cleanup. 4190 ;; Cleanup.
4189 (ignore-errors (delete-process proc))) 4191 (ignore-errors (delete-process proc)))