test-ob-shell: Fix test failures on Emacs 26
* testing/lisp/test-ob-shell.el (test-ob-shell/remote-with-stdin-or-cmdline): Work around non-local exit when running tests on Emacs 26. Do no call `kill-matching-buffers' unless Emacs in newer.
This commit is contained in:
parent
f0dfbf0c39
commit
ce4f7db3c1
|
@ -251,8 +251,10 @@ echo ${table[spaghetti]}
|
|||
(org-trim (org-babel-execute-src-block))))
|
||||
(expected (concat "ARGS: --verbose 23 71"
|
||||
"\nhello tramp from " (file-local-name default-directory))))
|
||||
(if (should (equal result expected))
|
||||
(kill-matching-buffers (format "\\*tramp/mock\\s-%s\\*" system-name) t t)))))))
|
||||
(if (should (equal result expected)) nil
|
||||
;; FIXME: Fails with non-local exit on Emacs 26.
|
||||
(when (version<= "27" emacs-version)
|
||||
(kill-matching-buffers (format "\\*tramp/mock\\s-%s\\*" system-name) t t))))))))
|
||||
|
||||
(ert-deftest test-ob-shell/results-table ()
|
||||
"Test :results table."
|
||||
|
|
Loading…
Reference in New Issue