Fix tests on Emacs master (30.0) where "\x" is an error

relint-test.el

@@ -164,4 +164,26 @@ and a path."
            '(("Ineffective string escape `\\?'" 16 nil nil nil warning)
              ("Ineffective string escape `\\!'" 1288960 nil nil nil warning)))))
 
+(ert-deftest relint-bad-hex-escape ()
+  ;; Test the bad \x character escape warning. We do this separately because
+  ;; it signals an error in newer Emacs.
+  (let ((buf (get-buffer-create " *relint-test*"))
+        (text-quoting-style 'grave))
+    (unwind-protect
+        (progn
+          (with-current-buffer buf
+            (emacs-lisp-mode)
+            (insert "(print \"c \\xf \\xg \\x d\")\n"))
+          (let* ((diags (relint-buffer buf))
+                 (err (assoc "(error \"Invalid escape character syntax\")"
+                             diags)))
+            (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)
+                     )))))
+      (kill-buffer buf))))
+
 (provide 'relint-test)

test/13.elisp

@@ -19,5 +19,4 @@ and \a \b \f \n \r \t \v \d \e \s \^P"))
   '("bracketed \q string"))
 
 (defun f3 ()
-  (print "a \7 \8 \9 b")
-  (print "c \xf \xg \x d"))
+  (print "a \7 \8 \9 b"))

test/13.expected

@@ -28,5 +28,3 @@
 13.elisp:19:16: Ineffective string escape `\q'
 13.elisp:22:16: Ineffective string escape `\8'
 13.elisp:22:19: Ineffective string escape `\9'
-13.elisp:23:17: Character escape `\x' not followed by hex digit
-13.elisp:23:21: Character escape `\x' not followed by hex digit