branch: elpa/popup
commit 48b0fa41d39f73e211c2b2c3e9e3276aeb9ae83d
Author: Takafumi Arakaki <aka....@gmail.com>
Commit: Takafumi Arakaki <aka....@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")))))
