aboutsummaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorJan Nieuwenhuizen <janneke@gnu.org>2016-09-14 23:14:57 +0200
committerMathieu Lirzin <mthl@gnu.org>2016-09-23 16:53:07 +0200
commitf65c62e53af27d3d73b362270084093586d97983 (patch)
tree96f252c86008d47211600299661ab9dee0870ad6 /bin
parent5ef0701f54482b83c433beb578715eb0d5321a74 (diff)
downloadcuirass-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')
-rw-r--r--bin/evaluate.in3
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))