[Emacs-diffs] trunk r117241: * test/automated/tramp-tests.el (tramp-test29-vc-registered):

[Michael Albinus]

------------------------------------------------------------
revno: 117241
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Mon 2014-06-02 20:38:22 +0200
message:
  * test/automated/tramp-tests.el (tramp-test29-vc-registered):
  Remove instrumentation.
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-06-02 09:53:43 +0000
+++ b/test/ChangeLog    2014-06-02 18:38:22 +0000
@@ -1,7 +1,7 @@
 2014-06-02  Michael Albinus  <address@hidden>
 
        * automated/tramp-tests.el (tramp-remote-process-environment): Declare.
-       (tramp-test29-vc-registered): Set $BZR_HOME.
+       (tramp-test29-vc-registered): Set $BZR_HOME.  Remove instrumentation.
 
 2014-06-01  Michael Albinus  <address@hidden>
 

=== modified file 'test/automated/tramp-tests.el'
--- a/test/automated/tramp-tests.el     2014-06-02 09:53:43 +0000
+++ b/test/automated/tramp-tests.el     2014-06-02 18:38:22 +0000
@@ -1395,7 +1395,6 @@
     (tramp-find-foreign-file-name-handler tramp-test-temporary-file-directory)
     'tramp-sh-file-name-handler))
 
-  (tramp--instrument-test-case 10
   (let* ((default-directory tramp-test-temporary-file-directory)
         (tmp-name1 (tramp--test-make-temp-name))
         (tmp-name2 (expand-file-name "foo" tmp-name1))
@@ -1440,12 +1439,7 @@
                       (list (file-name-nondirectory tmp-name2)))))
          (should (vc-registered tmp-name2)))
 
-      (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil
-       (with-current-buffer (tramp-get-connection-buffer v)
-         (message "%s" (buffer-string)))
-       (with-current-buffer (tramp-get-debug-buffer v)
-         (message "%s" (buffer-string))))
-      (ignore-errors (delete-directory tmp-name1 'recursive))))))
+       (ignore-errors (delete-directory tmp-name1 'recursive)))))
 
 (defun tramp--test-check-files (&rest files)
   "Runs a simple but comprehensive test over every file in FILES."