aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPhilipp Stephani2017-04-08 16:55:56 +0200
committerPhilipp Stephani2017-04-08 16:55:56 +0200
commit5ea696fd24c2bd8006050866fba0ccab1c0ff931 (patch)
tree4f8fa1e83e9a63a6811e587e9b3190121497cc82
parent4fbfd7ad53810153371a588a9bd1a69230f60dd5 (diff)
downloademacs-5ea696fd24c2bd8006050866fba0ccab1c0ff931.tar.gz
emacs-5ea696fd24c2bd8006050866fba0ccab1c0ff931.zip
Add unit test for Bug#26378
* test/lisp/vc/ediff-diff-tests.el (ediff-diff-tests--ediff-exec-process--nil): New unit test.
-rw-r--r--test/lisp/vc/ediff-diff-tests.el11
1 files changed, 11 insertions, 0 deletions
diff --git a/test/lisp/vc/ediff-diff-tests.el b/test/lisp/vc/ediff-diff-tests.el
index aacc8bfed2b..566f592f84e 100644
--- a/test/lisp/vc/ediff-diff-tests.el
+++ b/test/lisp/vc/ediff-diff-tests.el
@@ -41,4 +41,15 @@
41 (should (equal call-process-args 41 (should (equal call-process-args
42 `(("diff" nil ,(current-buffer) nil "/a" "/b"))))))) 42 `(("diff" nil ,(current-buffer) nil "/a" "/b")))))))
43 43
44(ert-deftest ediff-diff-tests--ediff-exec-process--nil ()
45 "Check that Bug#26378 is fixed."
46 (cl-letf* ((call-process-args ())
47 ((symbol-function #'call-process)
48 (lambda (&rest args) (push args call-process-args) 0)))
49 (with-temp-buffer
50 (ediff-exec-process "diff" (current-buffer) :synchronous ""
51 "foo" nil "")
52 (should (equal call-process-args
53 `(("diff" nil ,(current-buffer) nil "foo")))))))
54
44;;; ediff-diff-tests.el ends here 55;;; ediff-diff-tests.el ends here