X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/7c02be2061d6d83607c02963f2e917109e711f33..75f578ee635b1f61246569cbef0e466be1dba803:/test/frontends-tests.el

diff --git a/test/frontends-tests.el b/test/frontends-tests.el
index a10f91461..35c94c95e 100644
--- a/test/frontends-tests.el
+++ b/test/frontends-tests.el
@@ -231,6 +231,20 @@
                      " b ︸︸ ")
                    (company--create-lines 0 999)))))
 
+(ert-deftest company-create-lines-with-multiple-width-and-keep-prefix ()
+  :tags '(interactive)
+  (let* (company-show-numbers
+         (company-candidates '("MIRAI発売1カ月"
+                               "MIRAI発売2カ月"))
+         (company-candidates-length 2)
+         (company-prefix "MIRAI発")
+         (company-backend (lambda (c &optional _arg)
+                            (pcase c
+                              (`ignore-case 'keep-prefix)))))
+    (should (equal '(" MIRAI発売1カ月 "
+                     " MIRAI発売2カ月 ")
+                   (company--create-lines 0 999)))))
+
 (ert-deftest company-column-with-composition ()
   :tags '(interactive)
   (with-temp-buffer