[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/popup 6a2520d 040/184: Add folding test case when on the c
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/popup 6a2520d 040/184: Add folding test case when on the corner |
Date: |
Wed, 6 Oct 2021 00:01:02 -0400 (EDT) |
branch: elpa/popup
commit 6a2520d2f80734a8cc057af5de5e9aa733a322ae
Author: yuuki arisawa <yuuki.ari@gmail.com>
Commit: yuuki arisawa <yuuki.ari@gmail.com>
Add folding test case when on the corner
---
tests/popup-test.el | 48 ++++++++++++++++++++++++++++++++++++++++++------
1 file changed, 42 insertions(+), 6 deletions(-)
diff --git a/tests/popup-test.el b/tests/popup-test.el
index 9c1d5c7..6babe5b 100644
--- a/tests/popup-test.el
+++ b/tests/popup-test.el
@@ -195,10 +195,46 @@ HELP-DELAY is a delay of displaying helps."
(insert (make-string (- (window-body-height) 1) ?\n))
(insert (make-string (- (window-width) 3) ? ))
(popup-tip "long long long long line" :nowait t)
- (with-current-buffer (popup-test-helper-get-overlays-buffer)
- (let ((points (popup-test-helper-match-points
- '("long long long long line"))))
- (should (every #'identity points))
- (should (eq (line-number-at-pos (car points))
- (- (window-body-height) 1))))
+ (with-current-buffer (popup-test-helper-get-overlays-buffer)
+ (let ((points (popup-test-helper-match-points
+ '("long long long long line"))))
+ (should (every #'identity points))
+ (should (eq (line-number-at-pos (car points))
+ (- (window-body-height) 1))))
+ )))
+
+(ert-deftest popup-test-folding-short-line-right-top ()
+ (popup-test-with-temp-buffer
+ (insert (make-string (- (window-width) 3) ? ))
+ (popup-tip "bla\nbla\nbla\nbla\nbla" :nowait t)
+ (with-current-buffer (popup-test-helper-get-overlays-buffer)
+ (let ((points (popup-test-helper-match-points
+ '("bla"))))
+ (should (every #'identity points))
+ (should (eq (line-number-at-pos (car points)) 2))
+ ))))
+
+(ert-deftest popup-test-folding-short-line-left-bottom ()
+ (popup-test-with-temp-buffer
+ (insert (make-string (- (window-body-height) 1) ?\n))
+ (popup-tip "bla\nbla\nbla\nbla\nbla" :nowait t)
+ (with-current-buffer (popup-test-helper-get-overlays-buffer)
+ (let ((points (popup-test-helper-match-points
+ '("bla"))))
+ (should (every #'identity points))
+ (should (eq (popup-test-helper-same-all-p
+ (popup-test-helper-points-to-columns points)) 0))
))))
+
+(ert-deftest popup-test-folding-short-line-right-bottom ()
+ (popup-test-with-temp-buffer
+ (insert (make-string (- (window-body-height) 1) ?\n))
+ (insert (make-string (- (window-width) 3) ? ))
+ (popup-tip "bla\nbla\nbla\nbla\nbla" :nowait t)
+ (with-current-buffer (popup-test-helper-get-overlays-buffer)
+ (let ((points (popup-test-helper-match-points
+ '("bla"))))
+ (should (every #'identity points))
+ (should (eq (line-number-at-pos (car points))
+ (- (window-body-height) 5))))
+ )))
- [nongnu] elpa/popup f0b9c01 175/184: Update license info., (continued)
- [nongnu] elpa/popup f0b9c01 175/184: Update license info., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup bd5a0df 177/184: Simplify doc., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup c76d516 170/184: Bump version., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 4ab00e1 141/184: Use https scheme as possible, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 333ea5e 167/184: Bump version., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 9052d11 143/184: Improve eldoc for `popup-tip` and `popup-menu*`, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 6f4bba9 007/184: Update copyright., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 8937b92 003/184: Refactoring and auto-test., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup f15c82b 014/184: Merge pull request #10 from tkf/inhibit-read-only, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 2f1c9d8 056/184: Refactoring: new variable in popup-create-line-string, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 6a2520d 040/184: Add folding test case when on the corner,
ELPA Syncer <=
- [nongnu] elpa/popup 17a0cd4 080/184: Add :initial-cursor keyword option to popup-menu*., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 37c8761 070/184: Refactoring all test cases, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 05f5492 069/184: Change buffer-contents from string to propertied string for detecting end of popup., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 23652e7 064/184: Use face inheritance to avoid duplication, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup aa8762f 077/184: Fix travis configuration file for using cl-lib, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup ca3cc7f 106/184: Add: initial-index keyword argument to function `popup-menu*'. (initial-index argument is optional argument), ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 4bee35b 128/184: Add screenshot images, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 871d893 083/184: Merge pull request #54 from auto-complete/use-cl-lib, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup a3d1bfd 112/184: Fix test., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup a73a3b1 104/184: Fix for using cask, ELPA Syncer, 2021/10/06