[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/05: gnu: Add emacs-with-simulated-input.
From: |
guix-commits |
Subject: |
03/05: gnu: Add emacs-with-simulated-input. |
Date: |
Thu, 17 Dec 2020 00:52:33 -0500 (EST) |
apteryx pushed a commit to branch master
in repository guix.
commit 93d2cf18ef0347f0c52fa24d48d0f7abab413d99
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Dec 14 15:31:16 2020 -0500
gnu: Add emacs-with-simulated-input.
* gnu/packages/emacs-xyz.scm (emacs-with-simulated-input): New variable.
---
gnu/packages/emacs-xyz.scm | 35 +++++++++++++++++++++++++++++++++++
1 file changed, 35 insertions(+)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 076bb26..49d227a 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -15005,6 +15005,41 @@ timestamps by providing a @code{ts} struct.")
according to a parsing expression grammar.")
(license license:gpl3+)))
+(define-public emacs-with-simulated-input
+ (package
+ (name "emacs-with-simulated-input")
+ (version "2.4")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/DarwinAwardWinner/with-simulated-input")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "12d3mhvzj74qwc4rdcb236jbqnf5lam8pk78j92kwbwjk1jaz2cf"))))
+ (build-system emacs-build-system)
+ (arguments
+ ;; The test suite fails with error: "Spies can only be created in
+ ;; ‘before-each’".
+ `(#:tests? #f
+ #:test-command '("buttercup" "-L" ".")))
+ (native-inputs
+ `(("emacs-buttercup" ,emacs-buttercup)
+ ("emacs-undercover" ,emacs-undercover)))
+ (propagated-inputs
+ `(("emacs-s" ,emacs-s)))
+ (home-page "https://github.com/DarwinAwardWinner/with-simulated-input")
+ (synopsis "Non-interactive testing Emacs library")
+ (description "This package provides an Emacs Lisp macro,
+@code{with-simulated-input}, which evaluates one or more forms while
+simulating a sequence of input events for those forms to read. The result is
+the same as if a user had evaluated the forms and then manually typed in the
+same input. This macro is useful for non-interactive testing of normally
+interactive commands and functions, such as @code{completing-read}.")
+ (license license:gpl3+)))
+
(define-public emacs-org-ql
(package
(name "emacs-org-ql")