[bug#58365] [PATCH 3/6] guile-ffi-fftw: Respect #:tests?.

[Maxime Devos <maximedevos@telenet.be>]

* 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