diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-04-06 10:39:23 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-04-06 10:43:23 +0200 |
| commit | 38d367d71c1513a905d8e6006134bafe68b7e580 (patch) | |
| tree | 844c16331d425ccef865ce88ac0b5108f3a6406d | |
| parent | 074b9d02f1ca01007f39adbc019763027a51d9bd (diff) | |
| download | cuirass-38d367d71c1513a905d8e6006134bafe68b7e580.tar cuirass-38d367d71c1513a905d8e6006134bafe68b7e580.tar.gz | |
evaluate: Really pass arguments like Hydra.
* bin/evaluate.in (main): Use SPEC's #:name as a key in ARGS.
* examples/random-jobs.scm (make-random-jobs): Adjust accordingly.
| -rw-r--r-- | bin/evaluate.in | 8 | ||||
| -rw-r--r-- | examples/random-jobs.scm | 10 |
2 files changed, 11 insertions, 7 deletions
diff --git a/bin/evaluate.in b/bin/evaluate.in index c8d83e6..6a2678e 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -70,11 +70,13 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (let* ((proc-name (assq-ref spec #:proc)) (proc (module-ref %user-module proc-name)) (commit (assq-ref spec #:current-commit)) - (args `((revision . ,commit) - (file-name . ,source) + (name (assq-ref spec #:name)) + (args `((,(string->symbol name) + (revision . ,commit) + (file-name . ,source)) ,@(or (assq-ref spec #:arguments) '()))) (thunks (proc store args)) - (eval `((#:specification . ,(assq-ref spec #:name)) + (eval `((#:specification . ,name) (#:revision . ,commit)))) (pretty-print `(evaluation ,eval diff --git a/examples/random-jobs.scm b/examples/random-jobs.scm index 97ca150..78a09f4 100644 --- a/examples/random-jobs.scm +++ b/examples/random-jobs.scm @@ -42,10 +42,12 @@ (mkdir #$output)))))) (define (make-random-jobs store arguments) - (format (current-error-port) - "evaluating random jobs from directory ~s, commit ~s~%" - (assq-ref arguments 'file-name) - (assq-ref arguments 'revision)) + (let ((random (assq-ref arguments 'random))) + (format (current-error-port) + "evaluating random jobs from directory ~s, commit ~s~%" + (assq-ref random 'file-name) + (assq-ref random 'revision))) + (unfold (cut > <> 10) (lambda (i) (let ((suffix (number->string i))) |