[Emacs-diffs] trunk r116490: * automated/tramp-tests.el (tramp--instrument-test-case): New macro.

[Michael Albinus]

------------------------------------------------------------
revno: 116490
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Thu 2014-02-20 15:08:00 +0100
message:
  * automated/tramp-tests.el (tramp--instrument-test-case): New macro.
  (tramp-test17-insert-directory): First line could contain more
  text, when produced by `ls-lisp'.
  (tramp-test19-directory-files-and-attributes): Instrument failed
  test case.
modified:
  test/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-8588
  test/automated/tramp-tests.el  tramptests.el-20131105142319-d9zp3oprkpxj5v1e-1

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2014-02-19 19:28:32 +0000
+++ b/test/ChangeLog    2014-02-20 14:08:00 +0000
@@ -1,3 +1,11 @@
+2014-02-20  Michael Albinus  <address@hidden>
+
+       * automated/tramp-tests.el (tramp--instrument-test-case): New macro.
+       (tramp-test17-insert-directory): First line could contain more
+       text, when produced by `ls-lisp'.
+       (tramp-test19-directory-files-and-attributes): Instrument failed
+       test case.
+
 2014-02-19  Michael Albinus  <address@hidden>
 
        * automated/tramp-tests.el (tramp-test17-insert-directory):

=== modified file 'test/automated/tramp-tests.el'
--- a/test/automated/tramp-tests.el     2014-02-19 19:28:32 +0000
+++ b/test/automated/tramp-tests.el     2014-02-20 14:08:00 +0000
@@ -89,6 +89,20 @@
   (expand-file-name
    (make-temp-name "tramp-test") tramp-test-temporary-file-directory))
 
+(defmacro tramp--instrument-test-case (verbose &rest body)
+  "Run BODY with `tramp-verbose' equal VERBOSE.
+Print the the content of the Tramp debug buffer, if BODY does not
+eval properly in `should', `should-not' or `should-error'."
+  `(let ((tramp-verbose ,verbose))
+     (condition-case err
+        (progn ,@body)
+       (ert-test-failed
+       (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil
+         (with-current-buffer (tramp-get-debug-buffer v)
+           (message "%s" (buffer-string))))
+       (signal (car err) (cdr err))))))
+(put 'tramp--instrument-test-case 'lisp-indent-function 1)
+
 (ert-deftest tramp-test00-availability ()
   "Test availability of Tramp functions."
   :expected-result (if (tramp--test-enabled) :passed :failed)
@@ -823,7 +837,7 @@
            (goto-char (point-min))
            (should
             (looking-at-p
-             "\\(total +[[:digit:]]+\n\\)?.+ \\.\n.+ \\.\\.\n.+ foo$"))))
+             "\\(total.+[[:digit:]]+\n\\)?.+ \\.\n.+ \\.\\.\n.+ foo$"))))
       (ignore-errors (delete-directory tmp-name1 'recursive)))))
 
 (ert-deftest tramp-test18-file-attributes ()
@@ -891,13 +905,15 @@
          (setq attr (directory-files-and-attributes tmp-name))
          (should (consp attr))
          (dolist (elt attr)
-           (should
-            (equal (file-attributes (expand-file-name (car elt) tmp-name))
-                   (cdr elt))))
+           (tramp--instrument-test-case 10
+             (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)
-           (should
-            (equal (file-attributes (car elt)) (cdr elt))))
+           (tramp--instrument-test-case 10
+             (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)))))
@@ -1344,8 +1360,6 @@
 ;; * set-file-acl
 ;; * set-file-selinux-context
 
-;; * Fix `tramp-test17-insert-directory' for
-;;   `ls-lisp-insert-directory' ("plink" and friends, tramp-gvfs.el).
 ;; * Fix `tramp-test27-start-file-process' on MS Windows (`process-send-eof'?).
 ;; * Fix `tramp-test28-shell-command' on MS Windows (`process-send-eof'?).
 ;; * Fix `tramp-test30-utf8' on MS Windows.  Seems to be in `directory-files'.