branch: elpa/popup
commit a3d1bfd549a922aa00a362aa4501a3bb494e66d5
Author: TAKAGI Kentaro <kentaro0910+...@gmail.com>
Commit: TAKAGI Kentaro <kentaro0910+...@gmail.com>
Fix test.
---
tests/popup-test.el | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/tests/popup-test.el b/tests/popup-test.el
index bfc19c7..caf22b4 100644
--- a/tests/popup-test.el
+++ b/tests/popup-test.el
@@ -5,6 +5,11 @@
(when (< (frame-width) (length "long long long long line"))
(set-frame-size (selected-frame) 80 35))
+(defun popup-test-helper-posn-col-row (dummy)
+ "This function is workaround. Because `posn-col-row' and `posn-at-point'
+can not work well in batch mode."
+ (cons (current-column) (line-number-at-pos (point))))
+
(defmacro popup-test-with-common-setup (&rest body)
(declare (indent 0) (debug t))
`(save-excursion
@@ -12,8 +17,11 @@
(switch-to-buffer (current-buffer))
(delete-other-windows)
(erase-buffer)
- ,@body
- )))
+ (if noninteractive
+ (cl-letf (((symbol-function 'posn-col-row)
+ #'popup-test-helper-posn-col-row))
+ ,@body)
+ ,@body))))
(defun popup-test-helper-line-move-visual (arg)
"This function is workaround. Because `line-move-visual' can not work well in
