Decrease company-tooltip-limit in test

Less likely to fail in smaller terminal window.

diff --git a/company-tests.el b/company-tests.el
index 9b8e914b26b2effbdc731b73b3598f0c1ebc51b3..74789189f6655ab4a947e572a8d772896635a9b8 100644 (file)
--- a/company-tests.el
+++ b/company-tests.el
@@ -182,13 +182,14 @@
     (insert "aaaa\n bb\nccccc\nddd")
     (search-backward "bb")
     (let ((col-row (company--col-row))
+          (company-tooltip-limit 5)
           (company-candidates-length 2)
           (company-candidates '("123" "45")))
       (company-pseudo-tooltip-show (cdr col-row) (car col-row) 0)
       (let ((ov company-pseudo-tooltip-overlay))
         (should (eq (overlay-get ov 'company-width) 3))
         ;; FIXME: Make it 2?
-        (should (eq (overlay-get ov 'company-height) 10))
+        (should (eq (overlay-get ov 'company-height) 5))
         (should (eq (overlay-get ov 'company-column) (car col-row)))
         (should (string= (overlay-get ov 'company-before)
                          " 123\nc45 c\nddd\n"))))))