[Emacs-diffs] emacs-24 r117082: test/automated/vc-bzr.el: disable bzr's logging

[Glenn Morris]

------------------------------------------------------------
revno: 117082
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Wed 2014-05-07 20:34:20 -0700
message:
  test/automated/vc-bzr.el: disable bzr's logging
  
  This is for systems like hydra, where HOME can be read-only/absent.
  See e.g. <http://hydra.nixos.org/build/10870893>.
  
  * test/automated/vc-bzr.el (vc-bzr-test-bug9726, vc-bzr-test-bug9781)
  (vc-bzr-test-faulty-bzr-autoloads): Disable bzr logging.
modified:
  test/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-8588
  test/automated/vc-bzr.el       vcbzr.el-20111020033852-tb09uuuxskzxqlzo-1

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2014-05-05 23:18:18 +0000
+++ b/test/ChangeLog    2014-05-08 03:34:20 +0000
@@ -1,3 +1,8 @@
+2014-05-08  Glenn Morris  <address@hidden>
+
+       * automated/vc-bzr.el (vc-bzr-test-bug9726, vc-bzr-test-bug9781)
+       (vc-bzr-test-faulty-bzr-autoloads): Disable bzr logging.
+
 2014-05-05  Dmitry Gutov  <address@hidden>
 
        * automated/ruby-mode-tests.el

=== modified file 'test/automated/vc-bzr.el'
--- a/test/automated/vc-bzr.el  2014-02-10 01:34:22 +0000
+++ b/test/automated/vc-bzr.el  2014-05-08 03:34:20 +0000
@@ -33,7 +33,9 @@
   (skip-unless (executable-find vc-bzr-program))
   (let* ((tempdir (make-temp-file "vc-bzr-test" t))
          (ignored-dir (expand-file-name "ignored-dir" tempdir))
-         (default-directory (file-name-as-directory tempdir)))
+         (default-directory (file-name-as-directory tempdir))
+         (process-environment (cons (format "BZR_LOG=%s" null-device)
+                                    process-environment)))
     (unwind-protect
         (progn
           (make-directory ignored-dir)
@@ -64,7 +66,9 @@
   (let* ((tempdir (make-temp-file "vc-bzr-test" t))
          (subdir (expand-file-name "subdir" tempdir))
          (file (expand-file-name "file" tempdir))
-         (default-directory (file-name-as-directory tempdir)))
+         (default-directory (file-name-as-directory tempdir))
+         (process-environment (cons (format "BZR_LOG=%s" null-device)
+                                    process-environment)))
     (unwind-protect
         (progn
           (call-process vc-bzr-program nil nil nil "init")
@@ -100,7 +104,9 @@
   (let* ((tempdir (make-temp-file "vc-bzr-test" t))
          (file (expand-file-name "foo.el" tempdir))
          (default-directory (file-name-as-directory tempdir))
-         (generated-autoload-file (expand-file-name "loaddefs.el" tempdir)))
+         (generated-autoload-file (expand-file-name "loaddefs.el" tempdir))
+         (process-environment (cons (format "BZR_LOG=%s" null-device)
+                                    process-environment)))
     (unwind-protect
         (progn
           (call-process vc-bzr-program nil nil nil "init")