* automated/file-notify-tests.el:

* automated/tramp-tests.el: Add `tramp-own-remote-path' to
`tramp-remote-path' when running on hydra.
(tramp-test07-file-exists-p): Remove instrumentation code.
(tramp-test26-process-file): Don't use "/bin/true" and
"/bin/false", these paths do not exist on hydra.

diff --git a/test/ChangeLog b/test/ChangeLog
index 317789f07477d9ca09b0a6ae2387c6c6539693d7..95827d65cf6854ecffc5f35073704c9b9a48d3a5 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,7 +1,11 @@
 2013-11-08  Michael Albinus  <michael.albinus@gmx.de>
 
+       * automated/file-notify-tests.el:
        * automated/tramp-tests.el: Add `tramp-own-remote-path' to
-       `tramp-remote-path'.
+       `tramp-remote-path' when running on hydra.
+       (tramp-test07-file-exists-p): Remove instrumentation code.
+       (tramp-test26-process-file): Don't use "/bin/true" and
+       "/bin/false", these paths do not exist on hydra.
 
 2013-11-08  Helmut Eller  <eller.helmut@gmail.com>
 

diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el
index 627333bffd72e5be56b0e791d3d687546ebeb6a0..b0cd7ce95f609f5c87e56612200a0b1ca1159d4a 100644 (file)
--- a/test/automated/file-notify-tests.el
+++ b/test/automated/file-notify-tests.el
@@ -46,6 +46,9 @@
 (setq tramp-verbose 0
       tramp-message-show-message nil)
 (when noninteractive (defalias 'tramp-read-passwd 'ignore))
+;; This shall happen on hydra only.
+(when (getenv "NIX_STORE")
+  (add-to-list 'tramp-remote-path 'tramp-own-remote-path))
 
 ;; We do not want to try and fail `file-notify-add-watch'.
 (defun file-notify--test-local-enabled ()

diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 57544bfaefc4d9fcddde9d57567e63945cf31a6d..538def94a803ebc9ec4afbaa3c6f4168fc9d5d90 100644 (file)
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -19,13 +19,17 @@
 
 ;;; Commentary:
 
-;; Some of the tests are intended to run over remote files.  Set
+;; The tests require a recent ert.el from Emacs 24.4.
+
+;; Some of the tests require access to a remote host files.  Set
 ;; `tramp-test-temporary-file-directory' to a suitable value.  It must
 ;; NOT require an interactive password prompt, when running the tests
 ;; in batch mode.
 
-;; If you want to skip tests for remote files, set this variable to
-;; `null-device'.
+;; If you want to skip tests accessing a remote host, set this
+;; variable to `null-device'.
+
+;; A whole test run can be performed calling the command `tramp-test-all'.
 
 ;;; Code:
 
@@ -40,10 +44,9 @@
 (setq tramp-verbose 0
       tramp-message-show-message nil)
 (when noninteractive (defalias 'tramp-read-passwd 'ignore))
-;; This shall happen on hydra only; we need a proper test.  Check
-;; `process-environment' for a hint.
-(add-to-list 'tramp-remote-path 'tramp-own-remote-path)
-(message "%s" process-environment)
+;; This shall happen on hydra only.
+(when (getenv "NIX_STORE")
+  (add-to-list 'tramp-remote-path 'tramp-own-remote-path))
 
 (defvar tramp--test-enabled-checked nil
   "Cached result of `tramp--test-enabled'.
@@ -506,25 +509,13 @@ and `file-name-nondirectory'."
 
 (ert-deftest tramp-test07-file-exists-p ()
   "Check `file-exist-p', `write-region' and `delete-file'."
-  (condition-case err
-      (with-timeout (20 (should-not 'timeout))
-       (message "tramp--test-enabled")
-       (message "%S" (tramp--test-enabled))
-       (skip-unless (tramp--test-enabled))
-       (let ((tmp-name (tramp--test-make-temp-name)))
-         (message "file-exists-p")
-         (should-not (file-exists-p tmp-name))
-         (message "write-region")
-         (write-region "foo" nil tmp-name)
-         (message "file-exists-p")
-         (should (file-exists-p tmp-name))
-         (message "delete-file")
-         (delete-file tmp-name)
-         (message "file-exists-p")
-         (should-not (file-exists-p tmp-name))))
-    ((error quit)
-     (message "%S" err)
-     (signal (car err) (cdr err)))))
+  (skip-unless (tramp--test-enabled))
+  (let ((tmp-name (tramp--test-make-temp-name)))
+    (should-not (file-exists-p tmp-name))
+    (write-region "foo" nil tmp-name)
+    (should (file-exists-p tmp-name))
+    (delete-file tmp-name)
+    (should-not (file-exists-p tmp-name))))
 
 (ert-deftest tramp-test08-file-local-copy ()
   "Check `file-local-copy'."
@@ -930,8 +921,8 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
   "Check `process-file'."
   (skip-unless (tramp--test-enabled))
   (let ((default-directory tramp-test-temporary-file-directory))
-    (should (zerop (process-file "/bin/true")))
-    (should-not (zerop (process-file "/bin/false")))
+    (should (zerop (process-file "true")))
+    (should-not (zerop (process-file "false")))
     (with-temp-buffer
       (should (zerop (process-file "ls" nil t)))
       (should (> (point-max) (point-min))))))