[nongnu] elpa/popup 48b0fa4 020/184: Add a simple test using ERT

[ELPA Syncer]

branch: elpa/popup
commit 48b0fa41d39f73e211c2b2c3e9e3276aeb9ae83d
Author: Takafumi Arakaki <aka.tkf@gmail.com>
Commit: Takafumi Arakaki <aka.tkf@gmail.com>

    Add a simple test using ERT
---
 tests/popup-test.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/tests/popup-test.el b/tests/popup-test.el
new file mode 100644
index 0000000..e51e01f
--- /dev/null
+++ b/tests/popup-test.el
@@ -0,0 +1,18 @@
+(require 'ert)
+
+(require 'popup)
+
+(defmacro popup-test-with-common-setup (&rest body)
+  (declare (indent 0) (debug t))
+  `(save-excursion
+     (with-temp-buffer
+       (erase-buffer)
+       (let ((popup (popup-create (point) 10 10)))
+         ,@body
+         (popup-delete popup)))))
+
+(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")))))