06/08: build: 'make check-system' now honors $TESTS.

[Ludovic Courtès]

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))