02/02: gnu: python-plotly: Allow test phase to be skipped.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit e9096ef105c8f3d4667e55b4d94a1b1493659e2d
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Thu Mar 4 14:47:42 2021 +0200

    gnu: python-plotly: Allow test phase to be skipped.
    
    * gnu/packages/graph.scm (python-plotly)[arguments]: Wrap custom 'check
    phase tests with test with tests? keyword.
---
 gnu/packages/graph.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/graph.scm b/gnu/packages/graph.scm
index 6110c7a..d2e4c87 100644
--- a/gnu/packages/graph.scm
+++ b/gnu/packages/graph.scm
@@ -170,12 +170,14 @@ lines.")
              (chdir "packages/python/plotly")
              #t))
          (replace 'check
-           (lambda _
-             (invoke "pytest" "-x" "plotly/tests/test_core")
-             (invoke "pytest" "-x" "plotly/tests/test_io")
-             ;; FIXME: Add optional dependencies and enable their tests.
-             ;; (invoke "pytest" "-x" "plotly/tests/test_optional")
-             (invoke "pytest" "_plotly_utils/tests")))
+           (lambda* (#:key tests? #:allow-other-keys)
+             (when tests?
+               (invoke "pytest" "-x" "plotly/tests/test_core")
+               (invoke "pytest" "-x" "plotly/tests/test_io")
+               ;; FIXME: Add optional dependencies and enable their tests.
+               ;; (invoke "pytest" "-x" "plotly/tests/test_optional")
+               (invoke "pytest" "_plotly_utils/tests"))
+             #t))
          (add-before 'reset-gzip-timestamps 'make-files-writable
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))