[nongnu] elpa/popup 54ed4bd 048/184: Add test case:popup-next, popup-previous, popup-select

[ELPA Syncer]

branch: elpa/popup
commit 54ed4bdbc216f611b513b6368daa60aad78c9c6e
Author: yuuki arisawa <yuuki.ari@gmail.com>
Commit: yuuki arisawa <yuuki.ari@gmail.com>

    Add test case:popup-next,popup-previous,popup-select
---
 tests/popup-test.el | 60 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)

diff --git a/tests/popup-test.el b/tests/popup-test.el
index 66716cf..aab2157 100644
--- a/tests/popup-test.el
+++ b/tests/popup-test.el
@@ -376,3 +376,63 @@ HELP-DELAY is a delay of displaying helps."
           (should (equal (popup-test-helper-points-to-columns points)
                          '(0 0 0 nil)))
           )))))
+
+(ert-deftest popup-test-next ()
+  (popup-test-with-temp-buffer
+    (let ((popup (popup-cascade-menu
+                  '("Foo" "Bar" "Baz") :nowait t :margin t)))
+      (should (equal (popup-list popup) '("Foo" "Bar" "Baz")))
+      (should (equal (popup-selected-item popup) "Foo"))
+      (popup-next popup)
+      (should (equal (popup-selected-item popup) "Bar"))
+      (popup-next popup)
+      (should (equal (popup-selected-item popup) "Baz"))
+      (popup-next popup)
+      (should (equal (popup-selected-item popup) "Foo"))
+      (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-previous ()
+  (popup-test-with-temp-buffer
+    (let ((popup (popup-cascade-menu
+                  '("Foo" "Bar" "Baz") :nowait t :margin t)))
+      (should (equal (popup-list popup) '("Foo" "Bar" "Baz")))
+      (should (equal (popup-selected-item popup) "Foo"))
+      (popup-previous popup)
+      (should (equal (popup-selected-item popup) "Baz"))
+      (popup-previous popup)
+      (should (equal (popup-selected-item popup) "Bar"))
+      (popup-previous popup)
+      (should (equal (popup-selected-item popup) "Foo"))
+      (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-select ()
+  (popup-test-with-temp-buffer
+    (let ((popup (popup-cascade-menu
+                  '("Foo" "Bar" "Baz") :nowait t :margin t)))
+      (should (equal (popup-list popup) '("Foo" "Bar" "Baz")))
+      (should (equal (popup-selected-item popup) "Foo"))
+      (popup-select popup 1)
+      (should (equal (popup-selected-item popup) "Bar"))
+      (popup-select popup 0)
+      (should (equal (popup-selected-item popup) "Foo"))
+      (popup-select popup 2)
+      (should (equal (popup-selected-item popup) "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)))
+          )))))