[nongnu] elpa/popup 5809969 041/184: Add test case for margin

[ELPA Syncer]

branch: elpa/popup
commit 5809969141f5c08c60b9430d81d49770b7bb0d84
Author: yuuki arisawa <yuuki.ari@gmail.com>
Commit: yuuki arisawa <yuuki.ari@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))
+          )))))