[nongnu] elpa/popup 72c6e4d 027/184: Port some test cases from popup-interactive-test.el

[ELPA Syncer]

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