GNU bug report logs - #58365
[PATCH 0/6] Support #:tests? in guile-build-system

Previous Next

Full log

Message #11 received at 58365 <at> debbugs.gnu.org (full text, mbox):

From: Maxime Devos <maximedevos <at> telenet.be>
To: 58365 <at> debbugs.gnu.org
Cc: Maxime Devos <maximedevos <at> telenet.be>
Subject: [PATCH 3/6] guile-ffi-fftw: Respect #:tests?.
Date: Fri,  7 Oct 2022 22:53:49 +0200

* gnu/packages/guile-xyz.scm
(guile-ffi-fftw)[arguments]<#:test-script>: Set it.
[arguments]{#:phases}{check}: Remove custom phase.
[native-inputs]: Add native-input required by uncustomised 'check' phase.
---
 gnu/packages/guile-xyz.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 56f0bb8acc..2ab5683d19 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -3682,6 +3682,7 @@ (define-public guile-ffi-fftw
       (build-system guile-build-system)
       (arguments
        `(#:source-directory "mod"
+         #:test-script "../test/test-ffi-fftw.scm"
          #:phases
          (modify-phases %standard-phases
            (add-after 'unpack 'prepare-build
@@ -3689,11 +3690,8 @@ (define-public guile-ffi-fftw
                (substitute* "mod/ffi/fftw.scm"
                  (("\\(getenv \"GUILE_FFI_FFTW_LIBFFTW3_PATH\"\\)")
                   (format #f "\"~a/lib\"" (assoc-ref inputs "fftw"))))
-               #t))
-           (add-after 'build 'check
-             (lambda _
-               (invoke "guile" "-L" "mod"
-                       "-s" "test/test-ffi-fftw.scm"))))))
+               #t)))))
+      (native-inputs (list guile-test-driver))
       (inputs
        (list fftw guile-2.2))
       (home-page "https://github.com/lloda/guile-ffi-fftw/")
-- 
2.37.3

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.