diff options
Diffstat (limited to 'test/lisp/eshell')
| -rw-r--r-- | test/lisp/eshell/eshell-tests.el | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/test/lisp/eshell/eshell-tests.el b/test/lisp/eshell/eshell-tests.el index 7cdeb017e44..c0affed80aa 100644 --- a/test/lisp/eshell/eshell-tests.el +++ b/test/lisp/eshell/eshell-tests.el | |||
| @@ -114,6 +114,22 @@ e.g. \"{(+ 1 2)} 3\" => 3" | |||
| 114 | (eshell-wait-for-subprocess) | 114 | (eshell-wait-for-subprocess) |
| 115 | (eshell-match-result "OLLEH\n"))) | 115 | (eshell-match-result "OLLEH\n"))) |
| 116 | 116 | ||
| 117 | (ert-deftest eshell-test/pipe-subcommand () | ||
| 118 | "Check that piping with an asynchronous subcommand works" | ||
| 119 | (skip-unless (and (executable-find "echo") | ||
| 120 | (executable-find "cat"))) | ||
| 121 | (with-temp-eshell | ||
| 122 | (eshell-command-result-p "echo ${*echo hi} | *cat" | ||
| 123 | "hi"))) | ||
| 124 | |||
| 125 | (ert-deftest eshell-test/pipe-subcommand-with-pipe () | ||
| 126 | "Check that piping with an asynchronous subcommand with its own pipe works" | ||
| 127 | (skip-unless (and (executable-find "echo") | ||
| 128 | (executable-find "cat"))) | ||
| 129 | (with-temp-eshell | ||
| 130 | (eshell-command-result-p "echo ${*echo hi | *cat} | *cat" | ||
| 131 | "hi"))) | ||
| 132 | |||
| 117 | (ert-deftest eshell-test/redirect-buffer () | 133 | (ert-deftest eshell-test/redirect-buffer () |
| 118 | "Check that piping to a buffer works" | 134 | "Check that piping to a buffer works" |
| 119 | (with-temp-buffer | 135 | (with-temp-buffer |