diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-11-06 15:34:58 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-11-06 15:38:10 +0100 |
| commit | 2ea9f69f0702c330121d12b9e34ff9c139c479f6 (patch) | |
| tree | c547d8342d4f203ee2a6ce519a0335ad4f428d4f | |
| parent | 5233186611e9997387ade5265d4f1b1ea54395a8 (diff) | |
| download | emacs-2ea9f69f0702c330121d12b9e34ff9c139c479f6.tar.gz | |
Fix failing eshell alias tests
* test/lisp/eshell/esh-var-tests.el (esh-var-test/alias/function)
(esh-var-test/alias/symbol-pair): Fix tests. (Bug#59062)
| -rw-r--r-- | test/lisp/eshell/esh-var-tests.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/test/lisp/eshell/esh-var-tests.el b/test/lisp/eshell/esh-var-tests.el index d9b2585a327..245a8e6a26b 100644 --- a/test/lisp/eshell/esh-var-tests.el +++ b/test/lisp/eshell/esh-var-tests.el @@ -497,12 +497,13 @@ inside double-quotes" (ert-deftest esh-var-test/alias/function () "Test using a variable alias defined as a function." - (with-temp-eshell - (push `("ALIAS" ,(lambda () "value") nil t) eshell-variable-aliases-list) - (eshell-match-command-output "echo $ALIAS" "value\n") - (eshell-match-command-output "set ALIAS hello" - "Variable `ALIAS' is not settable\n" - nil t))) + (let ((text-quoting-style 'grave)) + (with-temp-eshell + (push `("ALIAS" ,(lambda () "value") nil t) eshell-variable-aliases-list) + (eshell-match-command-output "echo $ALIAS" "value\n") + (eshell-match-command-output "set ALIAS hello" + "Variable `ALIAS' is not settable\n" + nil t)))) (ert-deftest esh-var-test/alias/function-pair () "Test using a variable alias defined as a pair of getter/setter functions." @@ -558,12 +559,13 @@ This should get/set the value bound to the symbol." This should get the value bound to the symbol, but fail to set it, since the setter is nil." (with-temp-eshell - (let ((eshell-test-value "value")) + (let ((eshell-test-value "value") + (text-quoting-style 'grave)) (push '("ALIAS" (eshell-test-value . nil)) eshell-variable-aliases-list) (eshell-match-command-output "echo $ALIAS" "value\n") (eshell-match-command-output "set ALIAS hello" - "Variable `ALIAS' is not settable\n" - nil t)))) + "Variable `ALIAS' is not settable\n" + nil t)))) (ert-deftest esh-var-test/alias/export () "Test that `export' properly sets variable aliases." |