[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8f3f785: Fix thinko in Tramp test
From: |
Michael Albinus |
Subject: |
master 8f3f785: Fix thinko in Tramp test |
Date: |
Thu, 9 Dec 2021 14:11:49 -0500 (EST) |
branch: master
commit 8f3f785c555458f01759c376d700663e7d8dbc38
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
Fix thinko in Tramp test
* test/lisp/net/tramp-tests.el (tramp-test07-abbreviate-file-name):
Fix thinko.
---
test/lisp/net/tramp-tests.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index a572ff8..9c65f9a 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -239,8 +239,7 @@ is greater than 10.
(unwind-protect
(progn ,@body)
(tramp--test-message
- "%s %f sec"
- ,message (float-time (time-subtract nil start))))))
+ "%s %f sec" ,message (float-time (time-subtract nil start))))))
;; `always' is introduced with Emacs 28.1.
(defalias 'tramp--test-always
@@ -2291,7 +2290,7 @@ This checks also `file-name-as-directory',
`file-name-directory',
"Check that Tramp abbreviates file names correctly."
(skip-unless (tramp--test-enabled))
(skip-unless (tramp--test-emacs29-p))
- (skip-unless (tramp--test-ange-ftp-p))
+ (skip-unless (not (tramp--test-ange-ftp-p)))
(let* ((remote-host (file-remote-p tramp-test-temporary-file-directory))
;; Not all methods can expand "~".
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8f3f785: Fix thinko in Tramp test,
Michael Albinus <=