mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 09:20:54 -08:00
Code Issues Projects Releases Wiki Activity

Add test for bug #21831

Browse source 
* test/automated/process-tests.el
(start-process-should-not-modify-arguments): New test.  (Bug#21831)
Suggested by Nicolas Richard <youngfrog@members.fsf.org>
This commit is contained in:
Eli Zaretskii 2015-11-05 20:12:19 +02:00
parent 6540f6c586
commit 3be53aaed1
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test/automated/process-tests.el
View file

@ -142,4 +142,22 @@
(should (equal "hello stderr!\n"
(mapconcat #'identity (nreverse stderr-output) "")))))
(ert-deftest start-process-should-not-modify-arguments ()
"`start-process' must not modify its arguments in-place."
;; See bug#21831.
(let* ((path (pcase system-type
((or 'windows-nt 'ms-dos)
;; Make sure the file name uses forward slashes.
;; The original bug was that 'start-process' would
;; convert forward slashes to backslashes.
(expand-file-name (executable-find "attrib.exe")))
(_ "/bin//sh")))
(samepath (copy-sequence path)))
;; Make sure 'start-process' actually goes all the way and invokes
;; the program.
(should (process-live-p (condition-case nil
(start-process "" nil path)
(error nil))))
(should (equal path samepath))))
(provide 'process-tests)