From: Dmitry Gutov <dgutov@yandex.ru>
Date: Thu, 9 May 2013 04:09:03 +0000 (+0400)
Subject: Decrease company-tooltip-limit in test
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/0a0e8c6fec890b2ce9823da234f7668e55162987

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 9b8e914b2..74789189f 100644
--- 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"))))))