procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* test/automated/eshell.el (eshell-match-result):

Browse source 
Return a more informative failure than simply "false".  Update callers.
This commit is contained in:
Glenn Morris 2013-09-16 16:58:28 -04:00
parent 8d95f3a69c
commit 0c2a2b57fe
2 changed files with 16 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
test/ChangeLog
View file

@ -1,5 +1,8 @@
2013-09-16 Glenn Morris <rgm@gnu.org>
* automated/eshell.el (eshell-match-result):
Return a more informative failure than simply "false". Update callers.
* automated/eshell.el (eshell-test/for-name-shadow-loop):
Test value before and after loop as well as during.

32
test/automated/eshell.el
View file

@ -47,13 +47,11 @@
(funcall (or func 'eshell-send-input)))
(defun eshell-match-result (regexp)
"Insert a command at the end of the buffer."
"Check that text after `eshell-last-input-end' matches REGEXP."
(goto-char eshell-last-input-end)
(looking-at regexp))
(should (string-match-p regexp (buffer-substring-no-properties
(point) (point-max)))))
;; FIXME this does not return informative failure messages, just t or nil.
;; It should return the expected buffer contents and the actual one,
;; so that we can see what form any failure took.
(defun eshell-command-result-p (text regexp &optional func)
"Insert a command at the end of the buffer."
(eshell-insert-command text func)
@ -93,9 +91,8 @@
"Test `eshell-command-result' with a for loop using an env-var."
(let ((process-environment (cons "name=env-value" process-environment)))
(with-temp-eshell
(should
(eshell-command-result-p "echo $name; for name in 3 { echo $name }; echo $name"
"env-value\n3\nenv-value\n")))))
(eshell-command-result-p "echo $name; for name in 3 { echo $name }; echo $name"
"env-value\n3\nenv-value\n"))))
(ert-deftest eshell-test/lisp-command-args ()
"Test `eshell-command-result' with elisp and trailing args.
@ -154,23 +151,20 @@ e.g. \"{(+ 1 2)} 3\" => 3"
(ert-deftest eshell-test/last-result-var ()
"Test using the \"last result\" ($$) variable"
(with-temp-eshell
(should
(eshell-command-result-p "+ 1 2; + $$ 2"
"3\n5\n"))))
(eshell-command-result-p "+ 1 2; + $$ 2"
"3\n5\n")))
(ert-deftest eshell-test/last-result-var2 ()
"Test using the \"last result\" ($$) variable twice"
(with-temp-eshell
(should
(eshell-command-result-p "+ 1 2; + $$ $$"
"3\n6\n"))))
(eshell-command-result-p "+ 1 2; + $$ $$"
"3\n6\n")))
(ert-deftest eshell-test/last-arg-var ()
"Test using the \"last arg\" ($_) variable"
(with-temp-eshell
(should
(eshell-command-result-p "+ 1 2; + $_ 4"
"3\n6\n"))))
(eshell-command-result-p "+ 1 2; + $_ 4"
"3\n6\n")))
(ert-deftest eshell-test/command-running-p ()
"Modeline should show no command running"
@ -204,14 +198,14 @@ e.g. \"{(+ 1 2)} 3\" => 3"
(> count 0))
(sit-for 1)
(setq count (1- count))))
(should (eshell-match-result "alpha\n"))))
(eshell-match-result "alpha\n")))
(ert-deftest eshell-test/flush-output ()
"Test flushing of previous output"
(with-temp-eshell
(eshell-insert-command "echo alpha")
(eshell-kill-output)
(should (eshell-match-result (regexp-quote "*** output flushed ***\n")))
(eshell-match-result (regexp-quote "*** output flushed ***\n"))
(should (forward-line))
(should (= (point) eshell-last-output-start))))