From: Philipp Stephani <phst@google.com>
Date: Tue, 23 Jan 2018 22:39:18 +0000 (+0100)
Subject: Add unit test for Bug#30005.
X-Git-Tag: emacs-27.0.90~5817
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c998b4e4f5f468264d3ea0bee5da586f32938e1;p=emacs.git

Add unit test for Bug#30005.

* test/src/callint-tests.el (call-interactively/embedded-nulls): New
unit test.
---

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