lilyp pushed a commit to branch emacs-team
in repository guix.
commit 15f6eb96789b9b7b2e3c7cccdbe9d060c9b86091
Author: Liliana Marie Prikler <[email protected]>
AuthorDate: Fri Mar 21 20:28:47 2025 +0100
gnu: emacs-window-purpose: Fix tests.
* gnu/packages/emacs-xyz.scm (emacs-window-purpose)[native-inputs]: Add
emacs-ert-runner.
[arguments]: Add #:test-command and #:phases.
---
gnu/packages/emacs-xyz.scm | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index ca3c8304de..011d8d3199 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -14713,8 +14713,10 @@ possible, and falls back to moving the left or top
border otherwise.")
(build-system emacs-build-system)
(propagated-inputs
(list emacs-let-alist emacs-imenu-list))
+ (native-inputs (list emacs-ert-runner))
(arguments
- '(#:include
+ '(#:test-command (list "sh" "-c" "ert-runner < test/user-input.txt")
+ #:include
'("^[^/]+.el$"
"^[^/]+.el.in$"
"^dir$"
@@ -14731,7 +14733,16 @@ possible, and falls back to moving the left or top
border otherwise.")
"^test.el$"
"^tests.el$"
"^[^/]+-test.el$"
- "^[^/]+-tests.el$")))
+ "^[^/]+-tests.el$")
+ #:phases (modify-phases %standard-phases
+ (add-after 'unpack 'number-tests
+ (lambda _
+ (ert-number-tests "test/switch-test.el"
+ "purpose-test-temp-actions-1")))
+ (add-after 'unpack 'create-test-file
+ (lambda _
+ (call-with-output-file "test/user-input.txt"
+ (const #t)))))))
(home-page "https://github.com/bmag/emacs-purpose";)
(synopsis "Purpose-based window management for Emacs")
(description "Purpose is a package that introduces the concept of a
