diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/guix-system.sh | 4 | ||||
| -rw-r--r-- | tests/pack.scm | 28 |
2 files changed, 18 insertions, 14 deletions
diff --git a/tests/guix-system.sh b/tests/guix-system.sh index adc0c44a6f..29e490c3d4 100644 --- a/tests/guix-system.sh +++ b/tests/guix-system.sh @@ -346,6 +346,10 @@ for example in gnu/system/examples/*.tmpl; do # The Raspberry Pi templates 'linux-libre-arm64-generic', which is # an ARM-only package. options="--system=aarch64-linux";; + *plasma*) + # Some architectures do not support all the packages Plasma + # depends on so restrict to x86_64-linux. + options="--system=x86_64-linux";; *vm-image*) # The VM image tries to build 'current-guix' as per 'guix pull'. # Skip it. diff --git a/tests/pack.scm b/tests/pack.scm index cf249f861b..8fdaed0168 100644 --- a/tests/pack.scm +++ b/tests/pack.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2017-2021, 2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2021, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; @@ -46,12 +46,6 @@ ;; Globally disable grafts because they can trigger early builds. (%graft? #f) -(define-syntax-rule (test-assertm name store exp) - (test-assert name - (let ((guile (package-derivation store %bootstrap-guile))) - (run-with-store store exp - #:guile-for-build guile)))) - (define %gzip-compressor ;; Compressor that uses the bootstrap 'gzip'. ((@ (guix scripts pack) compressor) "gzip" @@ -82,8 +76,14 @@ ;; dependencies may be already there, or we can get substitutes or build them ;; quite inexpensively; see <https://bugs.gnu.org/32184>. (with-external-store store + (define-syntax-rule (test-assertm name exp) + (test-assert name + (let ((guile (package-derivation store %bootstrap-guile))) + (run-with-store store exp + #:guile-for-build guile)))) + (unless store (test-skip 1)) - (test-assertm "self-contained-tarball" store + (test-assertm "self-contained-tarball" (mlet* %store-monad ((guile (set-guile-for-build (default-guile))) (profile -> (profile @@ -136,7 +136,7 @@ (built-derivations (list check)))) (unless store (test-skip 1)) - (test-assertm "self-contained-tarball + localstatedir" store + (test-assertm "self-contained-tarball + localstatedir" (mlet* %store-monad ((guile (set-guile-for-build (default-guile))) (profile -> (profile @@ -159,7 +159,7 @@ (built-derivations (list check)))) (unless store (test-skip 1)) - (test-assertm "self-contained-tarball + localstatedir, UTF-8 file names" store + (test-assertm "self-contained-tarball + localstatedir, UTF-8 file names" (mlet* %store-monad ((guile (set-guile-for-build (default-guile))) (tree (interned-file-tree @@ -210,7 +210,7 @@ (built-derivations (list check)))) (unless store (test-skip 1)) - (test-assertm "docker-image + localstatedir" store + (test-assertm "docker-image + localstatedir" (mlet* %store-monad ((guile (set-guile-for-build (default-guile))) (profile -> (profile @@ -250,7 +250,7 @@ (built-derivations (list check)))) (unless store (test-skip 1)) - (test-assertm "squashfs-image + localstatedir" store + (test-assertm "squashfs-image + localstatedir" (mlet* %store-monad ((guile (set-guile-for-build (default-guile))) (profile -> (profile @@ -289,7 +289,7 @@ (built-derivations (list check)))) (unless store (test-skip 1)) - (test-assertm "deb archive with symlinks and control files" store + (test-assertm "deb archive with symlinks and control files" (mlet* %store-monad ((guile (set-guile-for-build (default-guile))) (profile -> (profile @@ -378,7 +378,7 @@ (built-derivations (list check)))) (unless store (test-skip 1)) - (test-assertm "rpm archive can be installed/uninstalled" store + (test-assertm "rpm archive can be installed/uninstalled" (mlet* %store-monad ((guile (set-guile-for-build (default-guile))) (profile -> (profile |