From f65c62e53af27d3d73b362270084093586d97983 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Wed, 14 Sep 2016 23:14:57 +0200 Subject: 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 --- bin/evaluate.in | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'bin') 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)) -- cgit v1.2.3