diff options
Diffstat (limited to 'test/lisp/net/tramp-tests.el')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index a79c47be723..6ffb8a65292 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -5388,6 +5388,21 @@ If UNSTABLE is non-nil, the test is tagged as `:unstable'." ;; Cleanup. (ignore-errors (delete-process proc))))) +(ert-deftest tramp-test31-memory-info () + "Check `memory-info'." + :tags '(:expensive-test) + (skip-unless (tramp--test-enabled)) + (skip-unless (tramp--test-supports-processes-p)) + ;; `memory-info' is supported since Emacs 29.1. + (skip-unless (tramp--test-emacs29-p)) + + (when-let ((default-directory ert-remote-temporary-file-directory) + (mi (memory-info))) + (should (consp mi)) + (should (= (length mi) 4)) + (dotimes (i (length mi)) + (should (natnump (nth i mi)))))) + (defun tramp--test-async-shell-command (command output-buffer &optional error-buffer input) "Like `async-shell-command', reading the output. |