[Top][All Lists]

[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.
         (progn ,@body)
-       "%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', 
   "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 "~".

reply via email to

[Prev in Thread] Current Thread [Next in Thread]