branch: elpa/popup
commit 72c6e4d84a6cb786b18ecaeb61445d5bab71d88e
Author: yuuki arisawa <yuuki....@gmail.com>
Commit: yuuki arisawa <yuuki....@gmail.com>
Port some test cases from popup-interactive-test.el
- delete
- hide
- tip
---
tests/popup-test.el | 95 ++++++++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 94 insertions(+), 1 deletion(-)
diff --git a/tests/popup-test.el b/tests/popup-test.el
index e51e01f..37ccd07 100644
--- a/tests/popup-test.el
+++ b/tests/popup-test.el
@@ -1,18 +1,111 @@
(require 'ert)
(require 'popup)
+;; for "every" function
+(require 'cl)
+
(defmacro popup-test-with-common-setup (&rest body)
(declare (indent 0) (debug t))
`(save-excursion
(with-temp-buffer
+ (switch-to-buffer (current-buffer))
(erase-buffer)
(let ((popup (popup-create (point) 10 10)))
,@body
(popup-delete popup)))))
+(defun popup-test-helper-overlays-to-text ()
+ "Create a new buffer called *text* containing the visible text
+of the current buffer, ie. it converts overlays containing text
+into real text."
+ (interactive)
+ (let ((tb (get-buffer-create "*text*"))
+ (s (point-min))
+ (os (overlays-in (point-min) (point-max))))
+ (with-current-buffer tb
+ (erase-buffer))
+ (setq os (sort os (lambda (o1 o2)
+ (< (overlay-start o1)
+ (overlay-start o2)))))
+ (mapc (lambda (o)
+ (let ((bt (buffer-substring-no-properties s (overlay-start o)))
+ (b (overlay-get o 'before-string))
+ (text (or (overlay-get o 'display)
+ (buffer-substring-no-properties (overlay-start o)
(overlay-end o))))
+ (a (overlay-get o 'after-string))
+ (inv (overlay-get o 'invisible)))
+ (with-current-buffer tb
+ (insert bt)
+ (unless inv
+ (when b (insert b))
+ (insert text)
+ (when a (insert a))))
+ (setq s (overlay-end o))))
+ os)
+ (let ((x (buffer-substring-no-properties s (point-max))))
+ (with-current-buffer tb
+ (insert x)
+ (buffer-string)))))
+
+(defun popup-test-helper-match-contents (contents)
+ (if (listp contents)
+ (mapcar (lambda (content)
+ (string-match content
+ (popup-test-helper-overlays-to-text)))
+ contents)))
+
+(defun popup-test-helper-input (key)
+ (push key unread-command-events))
+
(ert-deftest popup-test-simple ()
(popup-test-with-common-setup
(popup-set-list popup '("foo" "bar" "baz"))
(popup-draw popup)
- (should (equal (popup-list popup) '("foo" "bar" "baz")))))
+ (should (equal (popup-list popup) '("foo" "bar" "baz")))
+ (should (every #'identity
+ (popup-test-helper-match-contents '("foo" "bar" "baz"))))
+ ))
+
+(ert-deftest popup-test-delete ()
+ (popup-test-with-common-setup
+ (popup-delete popup)
+ (should-not (popup-live-p popup))))
+
+(ert-deftest popup-test-hide ()
+ (popup-test-with-common-setup
+ (popup-set-list popup '("foo" "bar" "baz"))
+ (popup-draw popup)
+ (popup-hide popup)
+ (should (equal (popup-list popup) '("foo" "bar" "baz")))
+ (should-not (every #'identity
+ (popup-test-helper-match-contents '("foo" "bar"
"baz"))))
+ ))
+
+(ert-deftest popup-test-tip ()
+ (popup-test-with-common-setup
+ (popup-tip
+ "Start isearch on POPUP. This function is synchronized, meaning
+event loop waits for quiting of isearch.
+
+CURSOR-COLOR is a cursor color during isearch. The default value
+is `popup-isearch-cursor-color'.
+
+KEYMAP is a keymap which is used when processing events during
+event loop. The default value is `popup-isearch-keymap'.
+
+CALLBACK is a function taking one argument. `popup-isearch' calls
+CALLBACK, if specified, after isearch finished or isearch
+canceled. The arguments is whole filtered list of items.
+
+HELP-DELAY is a delay of displaying helps."
+ :nowait t)
+ ;; (should (equal (popup-list popup) '("foo" "bar" "baz")))
+ (should
+ (every #'identity
+ (popup-test-helper-match-contents
+ '("CURSOR-COLOR is a cursor color during isearch"))))
+ ))
+
+
+
