* tramp-tests.el (tramp-test19-directory-files-and-attributes):

Instrument failed test case.

1 files changed, 7 insertions, 8 deletions

diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 9e77c111f4d..374eba7c213 100644
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -893,6 +893,7 @@ This tests also `file-readable-p' and `file-regular-p'."
    (tramp-dissect-file-name tramp-test-temporary-file-directory)
    nil 'keep-password)
 
+  (tramp--instrument-test-case 10
   (let ((tmp-name (tramp--test-make-temp-name))
         attr)
     (unwind-protect
@@ -905,18 +906,16 @@ This tests also `file-readable-p' and `file-regular-p'."
           (setq attr (directory-files-and-attributes tmp-name))
           (should (consp attr))
           (dolist (elt attr)
-            (tramp--instrument-test-case 10
-              (should
-               (equal (file-attributes (expand-file-name (car elt) tmp-name))
-                      (cdr elt)))))
+            (should
+             (equal (file-attributes (expand-file-name (car elt) tmp-name))
+                    (cdr elt))))
           (setq attr (directory-files-and-attributes tmp-name 'full))
           (dolist (elt attr)
-            (tramp--instrument-test-case 10
-              (should
-               (equal (file-attributes (car elt)) (cdr elt)))))
+            (should
+             (equal (file-attributes (car elt)) (cdr elt))))
           (setq attr (directory-files-and-attributes tmp-name nil "^b"))
           (should (equal (mapcar 'car attr) '("bar" "boz"))))
-      (ignore-errors (delete-directory tmp-name 'recursive)))))
+      (ignore-errors (delete-directory tmp-name 'recursive))))))
 
 (ert-deftest tramp-test20-file-modes ()
   "Check `file-modes'.