From: Stefan Kangas <stefankangas@gmail.com>
Date: Mon, 23 Oct 2023 13:08:38 +0000 (+0200)
Subject: ; Fix my last commit
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e30ee84ca4f43f890705a0a5e0afaced7624f9a;p=emacs.git

; 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>.
---

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")))))))