Add a couple tests for ivy-read with alists

[gnu-emacs-elpa] / ivy-test.el

diff --git a/ivy-test.el b/ivy-test.el
index 5e388d3dbf8fcf79e22300de749be2ffeaa8a450..40dae48286bb4254a290fc04585f31222ea8bd0e 100644 (file)
--- a/ivy-test.el
+++ b/ivy-test.el
@@ -78,6 +78,24 @@
            (ivy-with '(ivy-read "test" '("aaab" "aaac"))
                      "a C-n <tab> C-m")
            "aaac"))
+  (should (equal
+           (ivy-with '(ivy-read "test" '(("foo" . "bar")))
+                     "asdf C-m")
+           "asdf"))
+  (should (equal
+           (ivy-with
+            '(with-output-to-string
+              (ivy-read "test" '(("foo" . "bar"))
+               :action (lambda (x) (prin1 x))))
+            "f C-m")
+           "\"bar\""))
+  (should (equal
+           (ivy-with
+            '(with-output-to-string
+              (ivy-read "test" '(("foo" . "bar"))
+               :action (lambda (x) (prin1 x))))
+            "asdf C-m")
+           "\"asdf\""))
   (should (equal
            (ivy-with '(ivy-read "pattern: " '("can do" "can" "can't do"))
                      "can C-m")