procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

test/automated/vc-bzr.el: disable bzr's logging

Browse source 
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.
This commit is contained in:
Glenn Morris 2014-05-07 20:34:20 -07:00
parent b406487f52
commit 606695a678
2 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/ChangeLog
View file

@ -1,3 +1,8 @@
2014-05-08 Glenn Morris <rgm@gnu.org>
* 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 <dgutov@yandex.ru>
* automated/ruby-mode-tests.el

12
test/automated/vc-bzr.el
View file

@ -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")