From 014ecb279e6bae930a01c4106dd1f43686b5458c Mon Sep 17 00:00:00 2001
From: Liliana Marie Prikler <liliana.prikler@gmail.com>
Date: Sat, 22 Mar 2025 19:59:06 +0100
Subject: [PATCH] gnu: emacs-org-mime: Fix tests.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/emacs-xyz.scm (emacs-org-mime)[arguments]: Add #:test-command.
<#:phases>: Add ‘set-home’.
[native-inputs]: Add emacs-htmlize.
---
 gnu/packages/emacs-xyz.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index eab2edbcd8..3252503f08 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -12987,6 +12987,15 @@ cards created in Org mode.")
        (sha256
         (base32 "12144hhiygvbx2ws01b47z4wqqd5jfbpxx4cn503mkqwcxzvpvgb"))))
     (build-system emacs-build-system)
+    (arguments (list #:test-command
+                     #~(list "emacs" "--batch" "-l" "org-mime.el"
+                             "-l" "htmlize" "-l" "test/org-mime-tests.el")
+                     #:phases
+                     #~(modify-phases %standard-phases
+                         (add-before 'check 'set-home
+                           (lambda _
+                             (setenv "HOME" (getenv "TMPDIR")))))))
+    (native-inputs (list emacs-htmlize))
     (home-page "https://github.com/org-mime/org-mime")
     (synopsis "Send HTML email using Org mode HTML export")
     (description