Commit 4c998b4e authored by Philipp Stephani's avatar Philipp Stephani

Add unit test for Bug#30005.

* test/src/callint-tests.el (call-interactively/embedded-nulls): New
unit test.
parent 18139139
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment