[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/popup a33775f 047/184: Add test case:popup-menu*, popup-ca
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/popup a33775f 047/184: Add test case:popup-menu*, popup-cascade-menu |
Date: |
Wed, 6 Oct 2021 00:01:04 -0400 (EDT) |
branch: elpa/popup
commit a33775fded34a85aeb4fb8b8ba6ce72afe76a849
Author: yuuki arisawa <yuuki.ari@gmail.com>
Commit: yuuki arisawa <yuuki.ari@gmail.com>
Add test case:popup-menu*,popup-cascade-menu
---
tests/popup-test.el | 29 +++++++++++++++++++++++++++++
1 file changed, 29 insertions(+)
diff --git a/tests/popup-test.el b/tests/popup-test.el
index c346edc..66716cf 100644
--- a/tests/popup-test.el
+++ b/tests/popup-test.el
@@ -347,3 +347,32 @@ HELP-DELAY is a delay of displaying helps."
(should (eq (nth 1 (popup-test-helper-points-to-columns last-bounds))
(1- (window-width))))
)))))
+
+(ert-deftest popup-test-menu ()
+ (popup-test-with-temp-buffer
+ (let ((popup (popup-menu* '("Foo" "Bar" "Baz") :nowait t)))
+ (should (equal (popup-list popup) '("Foo" "Bar" "Baz")))
+ (with-current-buffer (popup-test-helper-get-overlays-buffer)
+ (let ((points (popup-test-helper-match-points
+ '("Foo" "Bar" "Baz"))))
+ (should (eq (line-number-at-pos (car points)) 2))
+ (should (equal (popup-test-helper-points-to-columns points)
+ '(0 0 0)))
+ )))))
+
+(ert-deftest popup-test-cascade-menu ()
+ (popup-test-with-temp-buffer
+ (let ((popup (popup-cascade-menu
+ '(("Foo" "Foo1" "Foo2") "Bar" "Baz") :nowait t :margin t)))
+ (should (string= (car (popup-list popup)) "Foo"))
+ (should (equal (popup-item-sublist (car (popup-list popup)))
+ '("Foo1" "Foo2")))
+ (should (equal (popup-item-symbol (car (popup-list popup))) ">"))
+ (should (equal (cdr (popup-list popup)) '("Bar" "Baz")))
+ (with-current-buffer (popup-test-helper-get-overlays-buffer)
+ (let ((points (popup-test-helper-match-points
+ '("Foo" "Bar" "Baz" "Foo1"))))
+ (should (eq (line-number-at-pos (car points)) 2))
+ (should (equal (popup-test-helper-points-to-columns points)
+ '(0 0 0 nil)))
+ )))))
- [nongnu] elpa/popup cf2cefe 166/184: Fixed compile warning, free variable from display line numbers., (continued)
- [nongnu] elpa/popup cf2cefe 166/184: Fixed compile warning, free variable from display line numbers., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 51f4430 171/184: Fixed to not use emacs 26.1 as dep., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 28762fc 138/184: Improve definition, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 88efff5 010/184: Not to insert newlines., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup bb4bb26 019/184: git mv popup-test.el tests/popup-interactive-test.el, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 07901c6 023/184: Merge pull request #15 from tkf/travis-ci, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 31779da 028/184: Fix test case bug when batch mode., ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 4a31175 033/184: Split setup macro to support extra setup, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 52059d6 055/184: Merge pull request #24 from tkf/summary-overflow, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup d655fd2 057/184: Merge pull request #25 from tkf/truncated-summary, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup a33775f 047/184: Add test case:popup-menu*, popup-cascade-menu,
ELPA Syncer <=
- [nongnu] elpa/popup 6f00052 072/184: Introduce version number, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 5a892e5 063/184: Do not use summary-face for selected item, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup d1dd7c4 124/184: Merge pull request #81 from auto-complete/fix-readme-about-installation, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 1f1f7a0 120/184: refactoring #80, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup bb51a53 107/184: Merge branch 'add-initial-index', ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup f06712a 125/184: Merge pull request #74 from kenbeese/fixed-display-with-invisible-overlays, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup b8874a4 121/184: bump up version, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 477649c 103/184: remove .gitmodules, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 51b3f59 133/184: Fix for Emacs 24.5 issue, ELPA Syncer, 2021/10/06
- [nongnu] elpa/popup 795df55 150/184: Merge pull request #106 from auto-complete/issue-105, ELPA Syncer, 2021/10/06