[elpa] externals/frog-menu 1cae377 12/13: Add interactive tests

[Clemens Radermacher]

branch: externals/frog-menu
commit 1cae377d2c305d02545dde2aabf051f7fc3ccbd2
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Add interactive tests
---
 Makefile               |  9 ++++++++-
 test/frog-menu-test.el | 29 ++++++++++++++++++++++++++---
 2 files changed, 34 insertions(+), 4 deletions(-)

diff --git a/Makefile b/Makefile
index a7ad281..48e4c02 100644
--- a/Makefile
+++ b/Makefile
@@ -5,7 +5,7 @@ test_files := $(wildcard test/*.el)
 package_lint  := ~/package-lint/package-lint.el
 
 .PHONY: all
-all: compile checkdoc lint test
+all: compile checkdoc lint test itest
 
 .PHONY: compile
 compile:
@@ -45,6 +45,13 @@ test:
                        -f ert-run-tests-batch-and-exit ;\
        done
 
+.PHONY: itest
+itest:
+       @if emacsclient -a false -e 't' 1>/dev/null 2>/dev/null; then \
+               echo "[interactive-test]" ;\
+               emacsclient --eval "(load-file \"test/frog-menu-test.el\")" ;\
+       fi
+
 .PHONY: clean
 clean:
        @echo "[clean]" *.elc
diff --git a/test/frog-menu-test.el b/test/frog-menu-test.el
index f9d3b7f..796801b 100644
--- a/test/frog-menu-test.el
+++ b/test/frog-menu-test.el
@@ -1,6 +1,29 @@
 (require 'ert)
 (require 'frog-menu)
 
-(ert-deftest frog-menu-test-stub ()
-  (should
-   (eq frog-menu-type-function #'frog-menu-type)))
+
+;; TODO: test grid creation as non interactive test:
+;; all items in it? correctly ordered? respecting dimensions?
+
+
+;; tests for interactive usage
+;; load tests and run ert
+(unless noninteractive
+  (require 'with-simulated-input)
+  (ert-deftest frog-menu-test-stub ()
+    (should (string= (with-simulated-input "a"
+                       (frog-menu-read "Check: " '("this" "that" "more")))
+                     "this")))
+  (ert-deftest frog-menu-test-stub ()
+    (should (string= (with-simulated-input "s"
+                       (frog-menu-read "Check: " '("this" "that" "more")))
+                     "that")))
+  (when load-file-name
+    (ert-run-tests-batch nil)))
+
+
+
+
+
+
+