From 2aa45d03475f7bd27d4ba5bc71b0cb812aa74768 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 19 Oct 2023 16:32:03 +0200 Subject: =?UTF-8?q?tests:=20Avoid=20three-argument=20=E2=80=98test-assertm?= =?UTF-8?q?=E2=80=99.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This fixes a discrepancy with other tests that have a two-argument ‘test-assertm’ macro. * tests/pack.scm (test-assertm): Move within ‘with-external-store’, and remove ‘store’ parameter. --- tests/pack.scm | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'tests') 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 +;;; Copyright © 2017-2021, 2023 Ludovic Courtès ;;; Copyright © 2018 Ricardo Wurmus ;;; Copyright © 2021, 2023 Maxim Cournoyer ;;; @@ -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 . (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 -- cgit v1.2.3