diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-06-11 17:06:03 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-06-13 18:09:23 +0200 |
| commit | ab54de1f35867d76a745b97436c8602ebceeec31 (patch) | |
| tree | d0ac5b132bbf9415efec0175a4b226788c75221d /bin | |
| parent | ecffeb75360134139092cd9d78d2f9387f0124e6 (diff) | |
| download | cuirass-ab54de1f35867d76a745b97436c8602ebceeec31.tar cuirass-ab54de1f35867d76a745b97436c8602ebceeec31.tar.gz | |
cuirass: Allow defining jobs outside of the repository.
* tests/gnu-system.scm: New file.
* bin/cuirass.in (evaluate, main): Use it.
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/cuirass.in | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index 862bcc7..9e0cf2b 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -87,7 +87,10 @@ DIR if required." (save-module-excursion (lambda () (set-current-module %user-module) - (primitive-load (string-append dir "/" spec)))) + (let ((guixdir (string-append dir "/guix"))) + (format #t "prepending ~s to the load path~%" guixdir) + (set! %load-path (cons guixdir %load-path))) + (primitive-load spec))) (let ((store ((guix-variable 'store 'open-connection)))) (dynamic-wind (const #t) @@ -124,8 +127,7 @@ DIR if required." (show-version progname) (exit 0)) (else - (let* ((jobfile (option-ref opts 'file - "guix/build-aux/hydra/gnu-system.scm")) + (let* ((jobfile (option-ref opts 'file "tests/gnu-system.scm")) (args (option-ref opts '() #f)) (cachedir (if (null? args) (getenv "CUIRASS_CACHEDIR") |