From 146a4cf20237685a47cb3e8e85b85d63d4dff704 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 20 Feb 2014 19:26:40 +0100 Subject: [PATCH] * tramp-tests.el (tramp-test19-directory-files-and-attributes): Instrument failed test case. --- test/automated/tramp-tests.el | 15 +++++++-------- 1 file 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'. -- 2.39.2