Test fixes for emacs 30

helpful.el

@@ -2570,7 +2570,9 @@ For example, \"(some-func FOO &optional BAR)\"."
             (cond
              ((symbolp sym)
               (help-function-arglist sym))
-             ((byte-code-function-p sym)
+             ((or (byte-code-function-p sym)
+                  (if (fboundp 'interpreted-function-p)
+                      (interpreted-function-p sym)))
               ;; argdesc can be a list of arguments or an integer
               ;; encoding the min/max number of arguments. See
               ;; Byte-Code Function Objects in the elisp manual.

test/helpful-unit-test.el

@@ -734,7 +734,9 @@ associated a lambda with a keybinding."
   (should
    (equal
     (length (helpful--keymaps-containing #'helpful--dummy-command))
-    2))
+    (if (< emacs-major-version 30)
+        2
+      3)))
 
   ;; Undo keybinding.
   (global-set-key (kbd "C-c M-S-c") nil)