emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r116495: * tramp-tests.el (tramp-test19-directory-fi


From: Michael Albinus
Subject: [Emacs-diffs] trunk r116495: * tramp-tests.el (tramp-test19-directory-files-and-attributes):
Date: Thu, 20 Feb 2014 18:26:47 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 116495
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Thu 2014-02-20 19:26:40 +0100
message:
  * tramp-tests.el (tramp-test19-directory-files-and-attributes):
  Instrument failed test case.
modified:
  test/automated/tramp-tests.el  tramptests.el-20131105142319-d9zp3oprkpxj5v1e-1
=== modified file 'test/automated/tramp-tests.el'
--- a/test/automated/tramp-tests.el     2014-02-20 14:08:00 +0000
+++ b/test/automated/tramp-tests.el     2014-02-20 18:26:40 +0000
@@ -893,6 +893,7 @@
    (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 @@
          (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'.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]