[nongnu] elpa/popup e208b13 035/184: Setup for batch mode

[ELPA Syncer]

branch: elpa/popup
commit e208b136de9551d77904c1de8e8a3184b557a6fb
Author: yuuki arisawa <yuuki.ari@gmail.com>
Commit: yuuki arisawa <yuuki.ari@gmail.com>

    Setup for batch mode
---
 tests/popup-test.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/popup-test.el b/tests/popup-test.el
index 98c6fee..48271d3 100644
--- a/tests/popup-test.el
+++ b/tests/popup-test.el
@@ -6,6 +6,9 @@
 
 (set-default 'truncate-lines t)
 
+(when (< (frame-width) (length "long long long long line"))
+  (set-frame-size (selected-frame) 80 35))
+
 (defmacro popup-test-with-create-popup (&rest body)
   (declare (indent 0) (debug t))
   `(let ((popup (popup-create (point) 10 10)))
@@ -20,6 +23,7 @@
   `(save-excursion
      (with-temp-buffer
        (switch-to-buffer (current-buffer))
+       (delete-other-windows)
        (erase-buffer)
        ,@body
        )))