1 ;;; ivy-test.el --- tests for ivy
3 ;; Copyright (C) 2015 Free Software Foundation, Inc.
7 ;; This file is part of GNU Emacs.
9 ;; This file is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 3, or (at your option)
14 ;; This program is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; For a full copy of the GNU General Public License
20 ;; see <http://www.gnu.org/licenses/>.
25 "Holds a test expression to evaluate with `ivy-eval'.")
27 (defvar ivy-result nil
28 "Holds the eval result of `ivy-expr' by `ivy-eval'.")
31 "Evaluate `ivy-expr'."
33 (setq ivy-result (eval ivy-expr)))
35 (global-set-key (kbd "C-c e") 'ivy-eval)
37 (defun ivy-with (expr keys)
38 "Evaluate EXPR followed by KEYS."
39 (let ((ivy-expr expr))
41 (vconcat (kbd "C-c e")
45 (ert-deftest ivy-read ()
47 (ivy-read "pattern: " nil)
50 (ivy-read "pattern: " '("42"))
53 (ivy-with '(ivy-read "pattern: " '("blue" "yellow"))
57 (ivy-with '(ivy-read "pattern: " '("blue" "yellow"))
61 (ivy-with '(ivy-read "pattern: " '("blue" "yellow"))
65 (ivy-with '(ivy-read "pattern: " '("blue" "yellow"))