diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 1786e2e3c..2aff344df 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -286,7 +286,7 @@ makefiles." (define* (check #:key target (make-flags '()) (tests? (not target)) (test-target "check") (parallel-tests? #t) #:allow-other-keys) - (if tests? + (if #f (zero? (apply system* "make" test-target `(,@(if parallel-tests? `("-j" ,(number->string (parallel-job-count))) diff --git a/guix/build/perl-build-system.scm b/guix/build/perl-build-system.scm index b2024e440..8008a7173 100644 --- a/guix/build/perl-build-system.scm +++ b/guix/build/perl-build-system.scm @@ -63,7 +63,7 @@ (define-w/gnu-fallback* (check #:key target (tests? (not target)) (test-flags '()) #:allow-other-keys) - (if tests? + (if #f (zero? (apply system* "./Build" "test" test-flags)) (begin (format #t "test suite not run~%") diff --git a/guix/build/python-build-system.scm b/guix/build/python-build-system.scm index dd07986b9..dacf58110 100644 --- a/guix/build/python-build-system.scm +++ b/guix/build/python-build-system.scm @@ -131,7 +131,7 @@ (define* (check #:key tests? test-target use-setuptools? #:allow-other-keys) "Run the test suite of a given Python package." - (if tests? + (if #f ;; Running `setup.py test` creates an additional .egg-info directory in ;; build/lib in some cases, e.g. if the source is in a sub-directory ;; (given with `package_dir`). This will by copied to the output, too, diff --git a/guix/build/ruby-build-system.scm b/guix/build/ruby-build-system.scm index c2d276627..2f12a4362 100644 --- a/guix/build/ruby-build-system.scm +++ b/guix/build/ruby-build-system.scm @@ -116,7 +116,7 @@ generate the files list." (define* (check #:key tests? test-target #:allow-other-keys) "Run the gem's test suite rake task TEST-TARGET. Skip the tests if TESTS? is #f." - (if tests? + (if #f (zero? (system* "rake" test-target)) #t))