diff options
Diffstat (limited to 'test/src/callint-tests.el')
| -rw-r--r-- | test/src/callint-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
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 |