[elpa] externals/relint 62321cb0e2 2/2: Merge pull request #13 from basil-conto/blc/master

[ELPA Syncer]

branch: externals/relint
commit 62321cb0e2efd9a2b85994ed9383c070f3a922dc
Merge: 290807bcbf 17152be9d4
Author: mattiase <mattiase@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #13 from basil-conto/blc/master
    
    Fix tests with ?\x error on Emacs master (30.0)
---
 relint-test.el | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/relint-test.el b/relint-test.el
index 14f057edd6..0c1cbf9c92 100644
--- a/relint-test.el
+++ b/relint-test.el
@@ -175,15 +175,17 @@ and a path."
             (emacs-lisp-mode)
             (insert "(print \"c \\xf \\xg \\x d\")\n"))
           (let* ((diags (relint-buffer buf))
-                 (err (assoc "(error \"Invalid escape character syntax\")"
-                             diags)))
+                 (err (condition-case err
+                          (read-from-string "?\\x")
+                        (error (prin1-to-string err)))))
             (should (equal
-                     (remove err diags)
-                   '(("Character escape `\\x' not followed by hex digit"
-                      15 nil nil nil warning)
-                     ("Character escape `\\x' not followed by hex digit"
-                      19 nil nil nil warning)
-                     )))))
+                     ;; Ignore 'invalid escape char syntax' error.
+                     (remove (assoc err diags) diags)
+                     '(("Character escape `\\x' not followed by hex digit"
+                        15 nil nil nil warning)
+                       ("Character escape `\\x' not followed by hex digit"
+                        19 nil nil nil warning)
+                       )))))
       (kill-buffer buf))))
 
 (provide 'relint-test)