06/06: gnu: python-pytest-trio: Honor #:tests? flag.

[guix-commits]

efraim pushed a commit to branch core-updates-frozen
in repository guix.

commit 1e631e46698289a7182b79e106507ad749f9ee55
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Fri Oct 15 13:31:17 2021 +0300

    gnu: python-pytest-trio: Honor #:tests? flag.
    
    * gnu/packages/python-check.scm (python-pytest-trio)[arguments]: Honor
    the #:tests? flag.
---
 gnu/packages/python-check.scm | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/python-check.scm b/gnu/packages/python-check.scm
index fd9e0be..40c4b91 100644
--- a/gnu/packages/python-check.scm
+++ b/gnu/packages/python-check.scm
@@ -780,16 +780,17 @@ simpler.")
      `(#:phases
        (modify-phases %standard-phases
          (replace 'check
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (add-installed-pythonpath inputs outputs)
-             (invoke "pytest" "-W" "error" "-ra" "-v" "--pyargs"
-                     "pytest_trio" "--verbose" "--cov" "-k"
-                     (string-append
-                       ;; Needs network
-                       "not test_async_yield_fixture_with_nursery"
-                       " and not test_try"
-                       ;; No keyboard interrupt in our build environment.
-                       " and not test_actual_test")))))))
+           (lambda* (#:key tests? inputs outputs #:allow-other-keys)
+             (when tests?
+               (add-installed-pythonpath inputs outputs)
+               (invoke "pytest" "-W" "error" "-ra" "-v" "--pyargs"
+                       "pytest_trio" "--verbose" "--cov" "-k"
+                       (string-append
+                         ;; Needs network
+                         "not test_async_yield_fixture_with_nursery"
+                         " and not test_try"
+                         ;; No keyboard interrupt in our build environment.
+                         " and not test_actual_test"))))))))
     (native-inputs
      `(("python-hypothesis" ,python-hypothesis)
        ("python-pytest" ,python-pytest)