Add unit test for Bug#30005.

* test/src/callint-tests.el (call-interactively/embedded-nulls): New
unit test.

diff --git a/test/src/callint-tests.el b/test/src/callint-tests.el
index 8fc7edf010c3fb665d909b705124d50b703f4660..9a812223ad0541412e640639cf1a5bfa3e18021f 100644 (file)
--- a/test/src/callint-tests.el
+++ b/test/src/callint-tests.el
@@ -35,4 +35,12 @@
       (cdr data)
       '("Invalid control letter `\u00FF' (#o377, #x00ff) in interactive calling string")))))
 
+(ert-deftest call-interactively/embedded-nulls ()
+  "Check that Bug#30005 is fixed."
+  (should (equal (let ((unread-command-events '(?a ?b)))
+                   (call-interactively (lambda (a b)
+                                         (interactive "ka\0a: \nkb: ")
+                                         (list a b))))
+                 '("a" "b"))))
+
 ;;; callint-tests.el ends here