emacs-diffs
[Top][All Lists]
Advanced

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

master 0e30ee84ca4: ; Fix my last commit


From: Stefan Kangas
Subject: master 0e30ee84ca4: ; Fix my last commit
Date: Mon, 23 Oct 2023 09:10:55 -0400 (EDT)

branch: master
commit 0e30ee84ca4f43f890705a0a5e0afaced7624f9a
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    ; Fix my last commit
    
    * test/lisp/erc/erc-tests.el (erc-tests--update-modules): Bind
    'text-quoting-style' to 'grave'.
    (erc--update-modules/unknown): Simplify.
    Suggested by Mattias Engdegård <mattias.engdegard@gmail.com>.
---
 test/lisp/erc/erc-tests.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el
index 92e364503e2..57bf5860ac4 100644
--- a/test/lisp/erc/erc-tests.el
+++ b/test/lisp/erc/erc-tests.el
@@ -2574,6 +2574,7 @@
   (let* ((calls nil)
          (custom-modes nil)
          (on-load nil)
+         (text-quoting-style 'grave)
 
          (get-calls (lambda () (prog1 (nreverse calls) (setq calls nil))))
 
@@ -2615,9 +2616,7 @@
        (let* ((erc-modules '(foo))
               (obarray (obarray-make))
               (err (should-error (erc--update-modules erc-modules))))
-         (should (string-match (rx bos (any "`‘") "foo" (any "'’")
-                                   " is not a known ERC module" eos)
-                               (cadr err)))
+         (should (equal (cadr err) "`foo' is not a known ERC module"))
          (should (equal (funcall get-calls)
                         `((req . ,(intern-soft "erc-foo")))))))
 



reply via email to

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