From: Dmitry Gutov <dgutov@yandex.ru>
Date: Thu, 9 May 2013 04:12:07 +0000 (+0400)
Subject: ERT window should occupy the whole frame
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/2e9af64d0fb19dda43da7ed90df825f3b231d6d4

ERT window should occupy the whole frame
---

diff --git a/Makefile b/Makefile
index 6da51171a..ff1dc3e6f 100644
--- a/Makefile
+++ b/Makefile
@@ -22,7 +22,8 @@ clean:
 	@rm -rf company-*/ company-*.tar company-*.tar.bz2
 
 test:
-	${EMACS} -Q -nw -L . -l company-tests.el --eval "(ert t)"
+	${EMACS} -Q -nw -L . -l company-tests.el \
+	--eval "(let (pop-up-windows) (ert t))"
 
 test-batch:
 	${EMACS} -Q --batch -L . -l company-tests.el \
diff --git a/company-tests.el b/company-tests.el
index 74789189f..9b8e914b2 100644
--- a/company-tests.el
+++ b/company-tests.el
@@ -182,14 +182,13 @@
     (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) 5))
+        (should (eq (overlay-get ov 'company-height) 10))
         (should (eq (overlay-get ov 'company-column) (car col-row)))
         (should (string= (overlay-get ov 'company-before)
                          " 123\nc45 c\nddd\n"))))))