From: Mattias Engdegård <mattiase@acm.org>
Date: Tue, 6 Oct 2020 12:22:57 +0000 (+0200)
Subject: Suppress obsoletion warning in test of obsolete rx function
X-Git-Tag: emacs-28.0.90~5734
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61113a325466e705e66c18164fac884fdb172593;p=emacs.git

Suppress obsoletion warning in test of obsolete rx function

* test/lisp/emacs-lisp/rx-tests.el (rx-compat): Add byte-compilation
warning suppression.
---

diff --git a/test/lisp/emacs-lisp/rx-tests.el b/test/lisp/emacs-lisp/rx-tests.el
index 3b01d89dbab..59d8c600a20 100644
--- a/test/lisp/emacs-lisp/rx-tests.el
+++ b/test/lisp/emacs-lisp/rx-tests.el
@@ -539,6 +539,9 @@
 
 (ert-deftest rx-compat ()
   "Test old symbol retained for compatibility (bug#37517)."
-  (should (equal (rx-submatch-n '(group-n 3 (+ nonl) eol)) "\\(?3:.+$\\)")))
+  (should (equal
+           (with-suppressed-warnings ((obsolete rx-submatch-n))
+             (rx-submatch-n '(group-n 3 (+ nonl) eol)))
+           "\\(?3:.+$\\)")))
 
 (provide 'rx-tests)