From 6642651271f5f41b4512d7c7f7c8393bf1d73793 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Sun, 12 Jun 2016 02:14:25 +0200
Subject: cuirass: Add --subset command line option.

bin/cuirass.in (%options, show-help): Add --subset option.
(evaluate): Add ARGS argument.
(main): Adjust accordingly.
---
 bin/cuirass.in | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'bin')

diff --git a/bin/cuirass.in b/bin/cuirass.in
index 8eaf842..f94099b 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -32,7 +32,8 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
   (display "
 Run Guix job from a git repository cloned in CACHEDIR.
 
-  -f  --use-file=FILE       Use FILE which defines the job to evaluate.
+  -f  --use-file=FILE       Use FILE which defines the job to evaluate
+      --subset=SET          Evaluate SET which is a subset of Guix packages
   -I, --interval=N          Wait N seconds between each evaluation
   -V, --version             Display version
   -h, --help                Display this help message")
@@ -41,6 +42,7 @@ Run Guix job from a git repository cloned in CACHEDIR.
 
 (define %options
   `((file     (single-char #\f) (value #t))
+    (subset   (value #t))
     (interval (single-char #\I) (value #t))
     (version  (single-char #\V) (value #f))
     (help     (single-char #\h) (value #f))))
@@ -82,7 +84,7 @@ DIR if required."
           ((guix-variable 'derivations 'build-derivations) store (list drv))))
        jobs))
 
-(define (evaluate store dir spec)
+(define (evaluate store dir spec args)
   "Evaluate and build package derivations in directory DIR."
   (save-module-excursion
    (lambda ()
@@ -91,7 +93,7 @@ DIR if required."
        (format #t "prepending ~s to the load path~%" guixdir)
        (set! %load-path (cons guixdir %load-path)))
      (primitive-load spec)))
-  (let ((job-specs ((module-ref %user-module 'hydra-jobs) store '())))
+  (let ((job-specs ((module-ref %user-module 'hydra-jobs) store args)))
     (map (match-lambda
            (($ <job-spec> name thunk metadata)
             (format (current-error-port) "evaluating '~a'... " name)
@@ -117,6 +119,7 @@ DIR if required."
      (else
       (let* ((store    ((guix-variable 'store 'open-connection)))
              (jobfile  (option-ref opts 'file "tests/gnu-system.scm"))
+             (subset   (option-ref opts 'subset "all"))
              (args     (option-ref opts '() #f))
              (cachedir (if (null? args)
                            (getenv "CUIRASS_CACHEDIR")
@@ -127,7 +130,8 @@ DIR if required."
             (while #t
               (pull-changes cachedir)
               (compile cachedir)
-              (let ((jobs (evaluate store cachedir jobfile)))
+              (let ((jobs (evaluate store cachedir jobfile
+                                    (acons 'subset subset '()))))
                 ((guix-variable 'store 'set-build-options) store
                  #:use-substitutes? #f)
                 (build-packages store jobs))
-- 
cgit v1.2.3