GNU bug report logs - #36940
tests slowness and failure after recent Tramp changes

Previous Next

Full log

Message #130 received at 36940 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: Stefan Kangas <stefan <at> marxist.se>
Cc: Eli Zaretskii <eliz <at> gnu.org>, Paul Eggert <eggert <at> cs.ucla.edu>,
 36940 <at> debbugs.gnu.org
Subject: Re: bug#36940: tests slowness and failure after recent Tramp changes
Date: Mon, 26 Aug 2019 18:43:35 +0200

[Message part 1 (text/plain, inline)]

Stefan Kangas <stefan <at> marxist.se> writes:

Hi Stefan,

> Please find attached the log of running that with your patch.

So let's try the following patch.

[Message part 2 (text/x-patch, inline)]

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 9930a2c9e1..8afd9f4ba4 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -5288,18 +5288,28 @@ tramp--test-check-files
 		  (setenv "PS1")
 		  (with-temp-buffer
 		    (should (zerop (process-file "env" nil t nil)))
-		    (goto-char (point-min))
-		    (should
-		     (re-search-forward
-                      ;; We must use proper encoding on macOS.  See
-                      ;; Bug#36940.
-                      (funcall
-	               (if (eq coding-system-for-read 'utf-8-hfs)
-                           'ucs-normalize-HFS-NFD-string 'identity)
-		       (format
-		        "^%s=%s$"
-		        (regexp-quote envvar)
-		        (regexp-quote (getenv envvar)))))))))))
+                    (tramp--test-message
+                     "coding-sytem: `%s' `%s'"
+                     coding-system-for-read coding-system-for-write )
+                    (tramp--test-message "search: `%s'" (getenv envvar))
+                    (let ((coding-system-for-read 'no-conversion)
+                          (coding-system-for-write 'no-conversion))
+                      (tramp--test-message
+                       "search: `%s'"
+                       (ucs-normalize-HFS-NFD-string (getenv envvar)))
+                      (tramp--test-message "buffer: `%s'" (buffer-string))
+		      (goto-char (point-min))
+		      (should
+		       (re-search-forward
+                        ;; We must use proper encoding on macOS.  See
+                        ;; Bug#36940.
+                        (funcall
+	                 (if (eq system-type 'darwin)
+                             'ucs-normalize-HFS-NFD-string 'identity)
+		         (format
+		          "^%s=%s$"
+		          (regexp-quote envvar)
+		          (regexp-quote (getenv envvar))))))))))))

 	;; Cleanup.
 	(ignore-errors (delete-directory tmp-name1 'recursive))

[Message part 3 (text/plain, inline)]

> Best regards,
> Stefan Kangas

Best regards, Michael.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.