diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-05-24 23:53:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-05-24 23:53:06 +0200 |
| commit | 5dce82180bf59b39184226830b74f33080fe00f3 (patch) | |
| tree | a4c3a6b4a5bc3a7a9e913ab7829c1e7de3b7d716 /tests | |
| parent | cba363bea8b93d367d0e64e94a8b31ef91707329 (diff) | |
| download | patches-5dce82180bf59b39184226830b74f33080fe00f3.tar patches-5dce82180bf59b39184226830b74f33080fe00f3.tar.gz | |
build-system/trivial: Implement the cross-build protocol.
* guix/build-system/trivial.scm (guile-for-build): New procedure.
(trivial-build): Use it.
(trivial-cross-build): New procedure.
(trivial-build-system): Use it.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/packages.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index b439183eba..bec9de5b45 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -94,7 +94,7 @@ ("d" ,d) ("d/x" "something.drv")) (pk 'x (package-transitive-inputs e)))))) -(test-skip (if (not %store) 5 0)) +(test-skip (if (not %store) 6 0)) (test-assert "return values" (let-values (((drv-path drv) @@ -203,6 +203,15 @@ (and (derivation-path? drv-path) (derivation? drv)))) +(test-assert "package-cross-derivation, trivial-build-system" + (let ((p (package (inherit (dummy-package "p")) + (build-system trivial-build-system) + (arguments '(#:builder (exit 1)))))) + (let-values (((drv-path drv) + (package-cross-derivation %store p "mips64el-linux-gnu"))) + (and (derivation-path? drv-path) + (derivation? drv))))) + (unless (false-if-exception (getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)) (test-skip 1)) (test-assert "GNU Make, bootstrap" |