[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
06/08: build: 'make check-system' now honors $TESTS.
From: |
Ludovic Courtès |
Subject: |
06/08: build: 'make check-system' now honors $TESTS. |
Date: |
Mon, 20 Jun 2016 21:51:01 +0000 (UTC) |
civodul pushed a commit to branch master
in repository guix.
commit de7e0e8ee07803f1cb7521f51d0f14e487182658
Author: Ludovic Courtès <address@hidden>
Date: Mon Jun 20 22:53:22 2016 +0200
build: 'make check-system' now honors $TESTS.
* build-aux/run-system-tests.scm (run-system-tests)[tests]: Honor the
'TESTS' environment variable.
---
build-aux/run-system-tests.scm | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/build-aux/run-system-tests.scm b/build-aux/run-system-tests.scm
index f7c99de..3f3a70e 100644
--- a/build-aux/run-system-tests.scm
+++ b/build-aux/run-system-tests.scm
@@ -24,6 +24,7 @@
#:use-module (guix ui)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-34)
+ #:use-module (ice-9 match)
#:export (run-system-tests))
(define (built-derivations* drv)
@@ -46,7 +47,17 @@
(define (run-system-tests . args)
(define tests
- (all-system-tests))
+ ;; Honor the 'TESTS' environment variable so that one can select a subset
+ ;; of tests to run in the usual way:
+ ;;
+ ;; make check-system TESTS=installed-os
+ (match (getenv "TESTS")
+ (#f
+ (all-system-tests))
+ ((= string-tokenize (tests ...))
+ (filter (lambda (test)
+ (member (system-test-name test) tests))
+ (all-system-tests)))))
(format (current-error-port) "Running ~a system tests...~%"
(length tests))
- branch master updated (b0d388c -> e702e26), Ludovic Courtès, 2016/06/20
- 08/08: hydra: Add jobs for the system tests., Ludovic Courtès, 2016/06/20
- 06/08: build: 'make check-system' now honors $TESTS.,
Ludovic Courtès <=
- 04/08: packages: Export 'scheme-modules'., Ludovic Courtès, 2016/06/20
- 05/08: tests: Add a mechanism to describe and discover system tests., Ludovic Courtès, 2016/06/20
- 01/08: tests: base: Fully honor the OS passed to 'run-basic-test'., Ludovic Courtès, 2016/06/20
- 07/08: gexp: Use a relative file name., Ludovic Courtès, 2016/06/20
- 02/08: vm: 'qemu-command' honors its argument., Ludovic Courtès, 2016/06/20
- 03/08: tests: Add system installation test., Ludovic Courtès, 2016/06/20