From 80963744a242257921917df5a901dc343d3a93db Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 14 May 2020 16:53:42 +0200 Subject: store: 'mapm/accumulate-builds' preserves '%current-target-system'. Fixes . * guix/store.scm (mapm/accumulate-builds): Pass #:system and #:target to 'run-with-store'. * tests/store.scm ("mapm/accumulate-builds, %current-target-system"): New test. * tests/guix-pack.sh: Add 'guix pack -d --target' test. --- tests/guix-pack.sh | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'tests/guix-pack.sh') diff --git a/tests/guix-pack.sh b/tests/guix-pack.sh index 14e3cda361..39b64791e2 100644 --- a/tests/guix-pack.sh +++ b/tests/guix-pack.sh @@ -40,6 +40,14 @@ trap 'chmod -Rf +w "$test_directory"; rm -rf "$test_directory"' EXIT drv="`guix pack coreutils -d --no-grafts`" guix gc -R "$drv" | grep "`guix build coreutils -d --no-grafts`" +# Compute the derivation of a cross-compiled pack. Make sure it refers to the +# cross-compiled package and not to the native package. +drv="`guix pack idutils -d --no-grafts --target=arm-linux-gnueabihf`" +guix gc -R "$drv" | \ + grep "`guix build idutils --target=arm-linux-gnueabihf -d --no-grafts`" +if guix gc -R "$drv" | grep "`guix build idutils -d --no-grafts`"; +then false; else true; fi + # Build a tarball with no compression. guix pack --compression=none --bootstrap guile-bootstrap -- cgit v1.2.3