From 4c998b4e4f5f468264d3ea0bee5da586f32938e1 Mon Sep 17 00:00:00 2001 From: Philipp Stephani Date: Tue, 23 Jan 2018 23:39:18 +0100 Subject: [PATCH] Add unit test for Bug#30005. * test/src/callint-tests.el (call-interactively/embedded-nulls): New unit test. --- test/src/callint-tests.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/test/src/callint-tests.el b/test/src/callint-tests.el index 8fc7edf010c..9a812223ad0 100644 --- 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 -- 2.39.5