guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Ludovic Courtès
Date: Sun, 29 Oct 2023 18:03:33 -0400 (EDT)

branch: master
commit c949436462a781860a225420b07c6a02a41ee546
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Oct 29 22:58:14 2023 +0100

    build: Add missing test files to the distribution.
    
    * Makefile.am (EXTRA_DIST): Add ‘tests/common.scm’ and ‘tests/mail.sh’.
    * tests/database.scm (mailer): Use ‘search-path’ to locate ‘mail.sh’
    relative to $top_srcdir.
---
 Makefile.am        | 4 +++-
 tests/database.scm | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Makefile.am b/Makefile.am
index af51805..a7c2a8b 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -211,7 +211,9 @@ EXTRA_DIST =                                        \
   examples/cuirass.scm                         \
   examples/random.scm                          \
   examples/random-manifest.scm                 \
-  $(TESTS)
+  $(TESTS)                                     \
+  tests/common.scm                             \
+  tests/mail.sh
 
 dist-hook:
        $(AM_V_GEN)echo $(VERSION) > $(distdir)/.tarball-version
diff --git a/tests/database.scm b/tests/database.scm
index 7a189bd..064d160 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -42,7 +42,8 @@
              (srfi srfi-64))
 
 (define (mailer)
-  (string-append "sendmail://" (getcwd) "/tests/mail.sh"))
+  (string-append "sendmail://"
+                 (search-path %load-path "tests/mail.sh")))
 
 ;; The above bash program will be invoked by mailutils.  It copies what's
 ;; passed on the standard input to the following file.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]