diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-11-15 09:42:48 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-11-15 09:45:01 +0100 |
commit | cff1702a52d9f116d9180a1a1597130474574fd8 (patch) | |
tree | 1c2dce698e8c95aa0840b16fa2dd9ff80827411b /test/lisp/wdired-tests.el | |
parent | 2a3c8f3d2e8a9b58c8b6c93168096ed096bcc5d6 (diff) | |
download | emacs-cff1702a52d9f116d9180a1a1597130474574fd8.tar.gz |
Fix hanging wdired test
* test/lisp/wdired-tests.el (wdired-test-bug34915): Fix hanging
test. Don't start the Emacs Server just to create a socket; just
create the socket manually.
Diffstat (limited to 'test/lisp/wdired-tests.el')
-rw-r--r-- | test/lisp/wdired-tests.el | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/test/lisp/wdired-tests.el b/test/lisp/wdired-tests.el index e768a165529..9678fce84d0 100644 --- a/test/lisp/wdired-tests.el +++ b/test/lisp/wdired-tests.el @@ -22,6 +22,7 @@ (require 'ert) (require 'ert-x) (require 'dired) +(require 'dired-x) (require 'wdired) (defvar dired-query) ; Pacify byte compiler. @@ -124,10 +125,6 @@ wdired-mode." (set-buffer-modified-p nil) (kill-buffer buf)))))))) -(defvar server-socket-dir) -(declare-function dired-smart-shell-command "dired-x" - (command &optional output-buffer error-buffer)) - (ert-deftest wdired-test-bug34915 () "Test editing when dired-listing-switches includes -F. Appended file indicators should not count as part of the file @@ -137,10 +134,10 @@ suffices to compare the return values of dired-get-filename and wdired-get-filename before and after editing." ;; FIXME: Add a test for a door (indicator ">") only under Solaris? (ert-with-temp-directory test-dir - (let* ((server-socket-dir test-dir) - (dired-listing-switches "-Fl") + (let* ((dired-listing-switches "-Fl") (dired-ls-F-marks-symlinks (eq system-type 'darwin)) - (buf (find-file-noselect test-dir))) + (buf (find-file-noselect test-dir)) + proc) (unwind-protect (progn (with-current-buffer buf @@ -148,11 +145,12 @@ wdired-get-filename before and after editing." (set-file-modes "foo" (file-modes-symbolic-to-number "+x")) (make-symbolic-link "foo" "bar") (make-directory "foodir") - (require 'dired-x) (dired-smart-shell-command "mkfifo foopipe") - (server-force-delete) - ;; FIXME? This seems a heavy-handed way of making a socket. - (server-start) ; Add a socket file. + (setq proc (make-network-process + :name "foo" + :family 'local + :server t + :service (expand-file-name "foosocket" test-dir))) (kill-buffer buf)) (dired test-dir) (dired-toggle-read-only) @@ -172,7 +170,7 @@ wdired-get-filename before and after editing." (setq dir (dired-get-filename 'no-dir t))) (should (equal dir (pop names))))))) (kill-buffer (get-buffer test-dir)) - (server-force-delete))))) + (ignore-errors (delete-process proc)))))) (ert-deftest wdired-test-bug39280 () "Test for https://debbugs.gnu.org/39280." |