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

* test/automated/vc-bzr.el (vc-bzr-test-bug9781): New test.

Browse source
This commit is contained in:
Glenn Morris 2011-10-20 18:23:54 -04:00
parent 516eddb051
commit e195ae68f8
2 changed files with 39 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/ChangeLog
View file

@ -1,5 +1,7 @@
2011-10-20 Glenn Morris <rgm@gnu.org>
* automated/vc-bzr.el (vc-bzr-test-bug9781): New test.
* automated/vc-bzr.el: New file.
2011-10-15 Glenn Morris <rgm@gnu.org>

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

@ -61,4 +61,41 @@
(should (search-forward "unregistered" nil t))))
(delete-directory tempdir t))))
;; Not specific to bzr.
(ert-deftest vc-bzr-test-bug9781 ()
"Test for http://debbugs.gnu.org/9781 ."
:expected-result (if (executable-find vc-bzr-program) :passed :failed)
(should (executable-find vc-bzr-program))
(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)))
(unwind-protect
(progn
(call-process vc-bzr-program nil nil nil "init")
(make-directory subdir)
(with-temp-buffer
(insert "text")
(write-region nil nil file nil 'silent)
(write-region nil nil (expand-file-name "subfile" subdir)
nil 'silent))
(call-process vc-bzr-program nil nil nil "add")
(call-process vc-bzr-program nil nil nil "commit" "-m" "Commit 1")
(call-process vc-bzr-program nil nil nil "remove" subdir)
(with-temp-buffer
(insert "different text")
(write-region nil nil file nil 'silent))
(vc-dir tempdir)
(while (vc-dir-busy)
(sit-for 0.1))
(vc-dir-mark-all-files t)
(let ((f (symbol-function 'y-or-n-p)))
(unwind-protect
(progn
(fset 'y-or-n-p (lambda (prompt) t))
(vc-next-action nil))
(fset 'y-or-n-p f)))
(should (get-buffer "*vc-log*")))
(delete-directory tempdir t))))
;;; vc-bzr.el ends here