[Emacs-diffs] feature/gnus-select bdea39b 190/218: Instrument tramp-test39-utf8

[Andrew G Cohen]

branch: feature/gnus-select
commit bdea39bd45f8d81eeeb3efacc93e79c2b213dc1b
Author: Michael Albinus <address@hidden>
Commit: Andrew G Cohen <address@hidden>

    Instrument tramp-test39-utf8
    
    * test/lisp/net/tramp-tests.el (tramp--test-expensive-test):
    Add the test name to the template.
    (tramp-test39-utf8): Instrument test.
---
 test/lisp/net/tramp-tests.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 70c9002..8e21f52 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -133,7 +133,8 @@ being the result.")
   "Whether expensive tests are run."
   (ert-select-tests
    (ert--stats-selector ert--current-run-stats)
-   (list (make-ert-test :body nil :tags '(:expensive-test)))))
+   (list (make-ert-test :name (ert-test-name (ert-running-test))
+                        :body nil :tags '(:expensive-test)))))
 
 (defun tramp--test-make-temp-name (&optional local quoted)
   "Return a temporary file name for test.
@@ -4660,7 +4661,8 @@ Use the `ls' command."
   (skip-unless (not (tramp--test-windows-nt-and-batch)))
   (skip-unless (not (tramp--test-windows-nt-and-pscp-psftp-p)))
 
-  (tramp--test-utf8))
+  (tramp--test-instrument-test-case 10
+  (tramp--test-utf8)))
 
 (ert-deftest tramp-test39-utf8-with-stat ()
   "Check UTF8 encoding in file names and file contents.