diff options
| author | Jan Nieuwenhuizen <janneke@gnu.org> | 2016-09-14 23:14:57 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-09-23 16:53:07 +0200 |
| commit | f65c62e53af27d3d73b362270084093586d97983 (patch) | |
| tree | 96f252c86008d47211600299661ab9dee0870ad6 /bin/evaluate.in | |
| parent | 5ef0701f54482b83c433beb578715eb0d5321a74 (diff) | |
| download | cuirass-f65c62e53af27d3d73b362270084093586d97983.tar cuirass-f65c62e53af27d3d73b362270084093586d97983.tar.gz | |
tests: Track Cuirass' git.
* guix.scm: New file; specify Guix package.
* guix/ci.scm: New file; expose to Guix.
* build-aux/pre-inst-env.in: Add it to GUIX_PACKAGE_PATH.
* bin/evaluate.in (main): Lookup proc using name specified by #:proc.
* tests/guix-track-git.scm: New file.
* tests/hello-git.scm: Test it.
Signed-off-by: Mathieu Lirzin <mthl@gnu.org>
Diffstat (limited to 'bin/evaluate.in')
| -rw-r--r-- | bin/evaluate.in | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bin/evaluate.in b/bin/evaluate.in index 767e15e..872d0b0 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -58,7 +58,8 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (parameterize ((%package-database database) (%use-substitutes? (assoc-ref spec #:use-substitutes?))) ;; Call the entry point of FILE and print the resulting job sexp. - (let* ((proc (module-ref %user-module 'hydra-jobs)) + (let* ((proc-name (assq-ref spec #:proc)) + (proc (module-ref %user-module proc-name)) (thunks (proc store (assq-ref spec #:arguments))) (db (db-open)) (commit (assq-ref spec #:current-commit)) |