[elpa] externals/relint 61c0dd607f 15/17: Fix \x test in emacs 30

[ELPA Syncer]

branch: externals/relint
commit 61c0dd607f821657225325f3f3b48aa851da0a44
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Fix \x test in emacs 30
---
 relint-test.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/relint-test.el b/relint-test.el
index e044ab78a7..18fd9006b2 100644
--- a/relint-test.el
+++ b/relint-test.el
@@ -19,6 +19,7 @@
 
 (require 'relint)
 (require 'ert)
+(require 'cl-lib)
 
 ;; Required for some of the source in test/
 (require 'subr-x)
@@ -194,13 +195,12 @@ and a path."
           (with-current-buffer buf
             (emacs-lisp-mode)
             (insert "(print \"c \\xf \\xg \\x d\")\n"))
-          (let* ((diags (relint-buffer buf))
-                 (err (condition-case err
-                          (read-from-string "?\\x")
-                        (error (prin1-to-string err)))))
+          (let ((diags (relint-buffer buf)))
             (should (equal
                      ;; Ignore 'invalid escape char syntax' error.
-                     (remove (assoc err diags) diags)
+                     (cl-remove-if (lambda (d)
+                                     (eq (relint-diag-severity d) 'error))
+                                   diags)
                      '(["Character escape `\\x' not followed by hex digit"
                         15 16 nil nil nil nil warning]
                        ["Character escape `\\x' not followed by hex digit"