diff options
| author | Philipp Stephani <phst@google.com> | 2018-01-23 23:39:18 +0100 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2018-01-23 23:41:15 +0100 |
| commit | 4c998b4e4f5f468264d3ea0bee5da586f32938e1 (patch) | |
| tree | 739610d315b78b34177c8f0fac4858e8e13f4cee /test/src/callint-tests.el | |
| parent | 18139139c90574ddc8dcb4d91ffbc48a536c1fe1 (diff) | |
| download | emacs-4c998b4e4f5f468264d3ea0bee5da586f32938e1.tar.gz emacs-4c998b4e4f5f468264d3ea0bee5da586f32938e1.tar.bz2 emacs-4c998b4e4f5f468264d3ea0bee5da586f32938e1.zip | |
Add unit test for Bug#30005.
* test/src/callint-tests.el (call-interactively/embedded-nulls): New
unit test.
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 |