From 0e30ee84ca4f43f890705a0a5e0afaced7624f9a Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 23 Oct 2023 15:08:38 +0200 Subject: [PATCH] ; Fix my last commit MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * 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 . --- 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"))))))) -- 2.39.2