diff options
| author | Philipp Stephani | 2018-01-23 23:39:18 +0100 |
|---|---|---|
| committer | Philipp Stephani | 2018-01-23 23:41:15 +0100 |
| commit | 4c998b4e4f5f468264d3ea0bee5da586f32938e1 (patch) | |
| tree | 739610d315b78b34177c8f0fac4858e8e13f4cee /test | |
| parent | 18139139c90574ddc8dcb4d91ffbc48a536c1fe1 (diff) | |
| download | emacs-4c998b4e4f5f468264d3ea0bee5da586f32938e1.tar.gz 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')
| -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 @@ | |||
| 35 | (cdr data) | 35 | (cdr data) |
| 36 | '("Invalid control letter `\u00FF' (#o377, #x00ff) in interactive calling string"))))) | 36 | '("Invalid control letter `\u00FF' (#o377, #x00ff) in interactive calling string"))))) |
| 37 | 37 | ||
| 38 | (ert-deftest call-interactively/embedded-nulls () | ||
| 39 | "Check that Bug#30005 is fixed." | ||
| 40 | (should (equal (let ((unread-command-events '(?a ?b))) | ||
| 41 | (call-interactively (lambda (a b) | ||
| 42 | (interactive "ka\0a: \nkb: ") | ||
| 43 | (list a b)))) | ||
| 44 | '("a" "b")))) | ||
| 45 | |||
| 38 | ;;; callint-tests.el ends here | 46 | ;;; callint-tests.el ends here |