diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/emacs-module-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index 1f91795e1e6..6851b890451 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el | |||
| @@ -426,6 +426,7 @@ See Bug#36226." | |||
| 426 | 426 | ||
| 427 | (ert-deftest module/async-pipe () | 427 | (ert-deftest module/async-pipe () |
| 428 | "Check that writing data from another thread works." | 428 | "Check that writing data from another thread works." |
| 429 | (skip-unless (not (eq system-type 'windows-nt))) ; FIXME! | ||
| 429 | (with-temp-buffer | 430 | (with-temp-buffer |
| 430 | (let ((process (make-pipe-process :name "module/async-pipe" | 431 | (let ((process (make-pipe-process :name "module/async-pipe" |
| 431 | :buffer (current-buffer) | 432 | :buffer (current-buffer) |
| @@ -435,6 +436,8 @@ See Bug#36226." | |||
| 435 | (progn | 436 | (progn |
| 436 | (mod-test-async-pipe process) | 437 | (mod-test-async-pipe process) |
| 437 | (should (accept-process-output process 1)) | 438 | (should (accept-process-output process 1)) |
| 439 | ;; The string below must be identical to what | ||
| 440 | ;; mod-test.c:write_to_pipe produces. | ||
| 438 | (should (equal (buffer-string) "data from thread"))) | 441 | (should (equal (buffer-string) "data from thread"))) |
| 439 | (delete-process process))))) | 442 | (delete-process process))))) |
| 440 | 443 | ||