From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 2 Jul 2017 10:16:33 +0000 (+0200)
Subject: ; Instrument tramp-tests.el
X-Git-Tag: emacs-26.0.90~521^2~11^2~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4383ff87a124bfbb5ef07751c12d42a743fccdc5;p=emacs.git

; Instrument tramp-tests.el
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 10d52f31607..85990a848f5 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -3700,7 +3700,11 @@ process sentinels.  They shall not disturb each other."
 	 ;; Suppress nasty messages.
 	 (inhibit-message t)
 	 (number-proc 10)
-	 (timer-repeat 1)
+	 ;; On hydra, timings are bad.
+	 (timer-repeat
+          (cond
+           ((getenv "NIX_STORE") 10
+            (t 1))))
 	 ;; We must distinguish due to performance reasons.
 	 (timer-operation
 	  (cond
@@ -3725,10 +3729,13 @@ process sentinels.  They shall not disturb each other."
 		(let ((default-directory tmp-name)
                       (file
 		       (buffer-name (nth (random (length buffers)) buffers))))
-                  (tramp--test-message "Start timer %s %s" timer-operation file)
+                  (tramp--test-message
+                   "Start timer %s %s %s"
+                   timer-operation file (current-time-string))
 		  (funcall timer-operation file)
                   (tramp--test-message
-                   "Stop timer %s %s" timer-operation file))))))
+                   "Stop timer %s %s %s"
+                   timer-operation file (current-time-string)))))))
 
 	  ;; Create temporary buffers.  The number of buffers
 	  ;; corresponds to the number of processes; it could be