aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-05-24 23:53:06 +0200
committerLudovic Courtès <ludo@gnu.org>2013-05-24 23:53:06 +0200
commit5dce82180bf59b39184226830b74f33080fe00f3 (patch)
treea4c3a6b4a5bc3a7a9e913ab7829c1e7de3b7d716 /tests
parentcba363bea8b93d367d0e64e94a8b31ef91707329 (diff)
downloadguix-5dce82180bf59b39184226830b74f33080fe00f3.tar
guix-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.scm11
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"