emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 2ea9f69f07 1/2: Fix failing eshell alias tests


From: Stefan Kangas
Subject: master 2ea9f69f07 1/2: Fix failing eshell alias tests
Date: Sun, 6 Nov 2022 09:40:32 -0500 (EST)

branch: master
commit 2ea9f69f0702c330121d12b9e34ff9c139c479f6
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    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)
---
 test/lisp/eshell/esh-var-tests.el | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/test/lisp/eshell/esh-var-tests.el 
b/test/lisp/eshell/esh-var-tests.el
index d9b2585a32..245a8e6a26 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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]