branch: elpa/popup
commit 5809969141f5c08c60b9430d81d49770b7bb0d84
Author: yuuki arisawa <yuuki....@gmail.com>
Commit: yuuki arisawa <yuuki....@gmail.com>
Add test case for margin
---
tests/popup-test.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/tests/popup-test.el b/tests/popup-test.el
index 6babe5b..ac48b08 100644
--- a/tests/popup-test.el
+++ b/tests/popup-test.el
@@ -238,3 +238,14 @@ HELP-DELAY is a delay of displaying helps."
(should (eq (line-number-at-pos (car points))
(- (window-body-height) 5))))
)))
+
+(ert-deftest popup-test-margin-at-middle ()
+ (popup-test-with-temp-buffer
+ (insert " ")
+ (let ((popup (popup-tip "Margin?" :nowait t :margin t)))
+ (with-current-buffer (popup-test-helper-get-overlays-buffer)
+ (let ((points (popup-test-helper-match-points '(" Margin? "))))
+ (should (every #'identity points))
+ (should (equal (car (popup-test-helper-points-to-columns points))
+ 0))
+ )))))
