diff options
author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-12 11:42:20 +0200 |
---|---|---|
committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-13 14:07:24 +0200 |
commit | 53c12be40944da8733ac2f2f84dee3e6453e003b (patch) | |
tree | e68eaf16bd499e3c5fe7e83356b2124837f248cd /tests/hello-subset.scm | |
parent | 92f5d0dfe4ed885f32e6bd92a53e50f7fcaccbb6 (diff) | |
download | cuirass-53c12be40944da8733ac2f2f84dee3e6453e003b.tar cuirass-53c12be40944da8733ac2f2f84dee3e6453e003b.tar.gz |
Evaluate derivations in a separate process.
This fixes a bug where different Guix branches gave the same
derivations.
Diffstat (limited to 'tests/hello-subset.scm')
-rw-r--r-- | tests/hello-subset.scm | 51 |
1 files changed, 23 insertions, 28 deletions
diff --git a/tests/hello-subset.scm b/tests/hello-subset.scm index f904782..76136ef 100644 --- a/tests/hello-subset.scm +++ b/tests/hello-subset.scm @@ -17,34 +17,29 @@ ;;; You should have received a copy of the GNU General Public License ;;; along with Cuirass. If not, see <http://www.gnu.org/licenses/>. -(use-modules (cuirass job)) - -;; In the common case jobs will be defined relative to the repository. -;; However for testing purpose use local gnu-system.scm instead. (define (local-file file) + ;; In the common case jobs will be defined relative to the repository. + ;; However for testing purpose use local gnu-system.scm instead. (string-append (dirname (current-filename)) "/" file)) -(list (make-job-spec - #:name "guix" - #:url "git://git.savannah.gnu.org/guix.git" - #:load-path "." - #:branch "master" - #:file (local-file "gnu-system.scm") - #:proc 'hydra-jobs - #:arguments '((subset . "hello"))) - (make-job-spec - #:name "guix" - #:url "git://git.savannah.gnu.org/guix.git" - #:load-path "." - #:branch "core-updates" - #:file (local-file "gnu-system.scm") - #:proc 'hydra-jobs - #:arguments '((subset . "hello"))) - (make-job-spec - #:name "guix" - #:url "git://git.savannah.gnu.org/guix.git" - #:load-path "." - #:tag "v0.9.0" - #:file (local-file "gnu-system.scm") - #:proc 'hydra-jobs - #:arguments '((subset . "hello")))) +`(((#:name . "guix") + (#:url . "git://git.savannah.gnu.org/guix.git") + (#:load-path . ".") + (#:branch . "master") + (#:file . ,(local-file "gnu-system.scm")) + (#:proc . hydra-jobs) + (#:arguments (subset . "hello"))) + ((#:name . "guix") + (#:url . "git://git.savannah.gnu.org/guix.git") + (#:load-path . ".") + (#:branch . "core-updates") + (#:file . ,(local-file "gnu-system.scm")) + (#:proc . hydra-jobs) + (#:arguments (subset . "hello"))) + ((#:name . "guix") + (#:url . "git://git.savannah.gnu.org/guix.git") + (#:load-path . ".") + (#:tag . "v0.9.0") + (#:file . ,(local-file "gnu-system.scm")) + (#:proc . hydra-jobs) + (#:arguments (subset . "hello")))) |