summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2024-04-01 15:11:40 +0200
committerLudovic Courtès <ludo@gnu.org>2024-04-15 22:36:42 +0200
commit54be7795b5cc2f6cad05f8649121372c9d5af806 (patch)
treecaa185fa31a2d759a9e8e44f7d53490cd2a71944 /tests
parent6dc238f2613c5049e2f2d346c4482b7ecc76c9fa (diff)
utils: Don’t re-export ‘call-with-temporary-output-file’.
* guix/utils.scm: Remove re-export of ‘call-with-temporary-output-file’. Autoload a number of modules. * guix/download.scm, guix/import/hackage.scm, guix/import/hexpm.scm, guix/import/opam.scm, guix/import/pypi.scm, tests/cpio.scm, tests/egg.scm, tests/opam.scm, tests/publish.scm, tests/store-database.scm, tests/utils.scm: Adjust imports accordingly. Change-Id: I3f5e94631397996a30be2ea4ff8b50a3371e8ee7
Diffstat (limited to 'tests')
-rw-r--r--tests/cpio.scm6
-rw-r--r--tests/egg.scm5
-rw-r--r--tests/opam.scm5
-rw-r--r--tests/publish.scm5
-rw-r--r--tests/store-database.scm6
-rw-r--r--tests/utils.scm3
6 files changed, 17 insertions, 13 deletions
diff --git a/tests/cpio.scm b/tests/cpio.scm
index 832101d1bbf..35a704822be 100644
--- a/tests/cpio.scm
+++ b/tests/cpio.scm
@@ -1,5 +1,5 @@
1;;; GNU Guix --- Functional package management for GNU 1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2015, 2022 Ludovic Courtès <ludo@gnu.org> 2;;; Copyright © 2015, 2022, 2024 Ludovic Courtès <ludo@gnu.org>
3;;; 3;;;
4;;; This file is part of GNU Guix. 4;;; This file is part of GNU Guix.
5;;; 5;;;
@@ -19,8 +19,8 @@
19(define-module (test-cpio) 19(define-module (test-cpio)
20 #:use-module (guix cpio) 20 #:use-module (guix cpio)
21 #:use-module (guix tests) 21 #:use-module (guix tests)
22 #:use-module ((guix build utils) #:select (which)) 22 #:use-module ((guix build utils)
23 #:use-module ((guix utils) #:select (call-with-temporary-output-file)) 23 #:select (which call-with-temporary-output-file))
24 #:use-module (ice-9 match) 24 #:use-module (ice-9 match)
25 #:use-module (ice-9 popen) 25 #:use-module (ice-9 popen)
26 #:use-module (rnrs io ports) 26 #:use-module (rnrs io ports)
diff --git a/tests/egg.scm b/tests/egg.scm
index a7d3378dd78..c74f9546836 100644
--- a/tests/egg.scm
+++ b/tests/egg.scm
@@ -24,8 +24,9 @@
24 #:use-module (gcrypt hash) 24 #:use-module (gcrypt hash)
25 #:use-module (guix tests) 25 #:use-module (guix tests)
26 #:use-module ((guix build syscalls) #:select (mkdtemp!)) 26 #:use-module ((guix build syscalls) #:select (mkdtemp!))
27 #:use-module ((guix build utils) #:select (delete-file-recursively mkdir-p which)) 27 #:use-module ((guix build utils)
28 #:use-module ((guix utils) #:select (call-with-temporary-output-file)) 28 #:select (delete-file-recursively mkdir-p which
29 call-with-temporary-output-file))
29 #:use-module (srfi srfi-1) 30 #:use-module (srfi srfi-1)
30 #:use-module (srfi srfi-64) 31 #:use-module (srfi srfi-64)
31 #:use-module (web uri) 32 #:use-module (web uri)
diff --git a/tests/opam.scm b/tests/opam.scm
index 832fea1d9bf..f444ef302e2 100644
--- a/tests/opam.scm
+++ b/tests/opam.scm
@@ -24,8 +24,9 @@
24 #:use-module (gcrypt hash) 24 #:use-module (gcrypt hash)
25 #:use-module (guix tests) 25 #:use-module (guix tests)
26 #:use-module ((guix build syscalls) #:select (mkdtemp!)) 26 #:use-module ((guix build syscalls) #:select (mkdtemp!))
27 #:use-module ((guix build utils) #:select (delete-file-recursively mkdir-p which)) 27 #:use-module ((guix build utils)
28 #:use-module ((guix utils) #:select (call-with-temporary-output-file)) 28 #:select (delete-file-recursively mkdir-p which
29 call-with-temporary-output-file))
29 #:use-module (srfi srfi-1) 30 #:use-module (srfi srfi-1)
30 #:use-module (srfi srfi-64) 31 #:use-module (srfi srfi-64)
31 #:use-module (web uri) 32 #:use-module (web uri)
diff --git a/tests/publish.scm b/tests/publish.scm
index efb5698bed0..d5ec3c954fa 100644
--- a/tests/publish.scm
+++ b/tests/publish.scm
@@ -1,7 +1,7 @@
1;;; GNU Guix --- Functional package management for GNU 1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2015 David Thompson <davet@gnu.org> 2;;; Copyright © 2015 David Thompson <davet@gnu.org>
3;;; Copyright © 2020 by Amar M. Singh <nly@disroot.org> 3;;; Copyright © 2020 by Amar M. Singh <nly@disroot.org>
4;;; Copyright © 2016-2022 Ludovic Courtès <ludo@gnu.org> 4;;; Copyright © 2016-2022, 2024 Ludovic Courtès <ludo@gnu.org>
5;;; 5;;;
6;;; This file is part of GNU Guix. 6;;; This file is part of GNU Guix.
7;;; 7;;;
@@ -25,7 +25,8 @@
25 #:use-module (guix scripts publish) 25 #:use-module (guix scripts publish)
26 #:use-module (guix tests) 26 #:use-module (guix tests)
27 #:use-module (guix config) 27 #:use-module (guix config)
28 #:use-module (guix utils) 28 #:use-module ((guix utils) #:select (call-with-temporary-directory))
29 #:use-module ((guix build utils) #:select (call-with-temporary-output-file))
29 #:use-module (gcrypt hash) 30 #:use-module (gcrypt hash)
30 #:use-module (guix store) 31 #:use-module (guix store)
31 #:use-module (guix derivations) 32 #:use-module (guix derivations)
diff --git a/tests/store-database.scm b/tests/store-database.scm
index 67d464386d6..177c776b6cb 100644
--- a/tests/store-database.scm
+++ b/tests/store-database.scm
@@ -1,5 +1,5 @@
1;;; GNU Guix --- Functional package management for GNU 1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2017, 2018, 2020, 2021 Ludovic Courtès <ludo@gnu.org> 2;;; Copyright © 2017-2018, 2020-2021, 2024 Ludovic Courtès <ludo@gnu.org>
3;;; 3;;;
4;;; This file is part of GNU Guix. 4;;; This file is part of GNU Guix.
5;;; 5;;;
@@ -21,9 +21,9 @@
21 #:use-module (guix store) 21 #:use-module (guix store)
22 #:use-module (guix store database) 22 #:use-module (guix store database)
23 #:use-module (guix build store-copy) 23 #:use-module (guix build store-copy)
24 #:use-module ((guix utils) #:select (call-with-temporary-output-file))
25 #:use-module ((guix build utils) 24 #:use-module ((guix build utils)
26 #:select (mkdir-p delete-file-recursively)) 25 #:select (mkdir-p delete-file-recursively
26 call-with-temporary-output-file))
27 #:use-module (srfi srfi-26) 27 #:use-module (srfi srfi-26)
28 #:use-module (srfi srfi-64)) 28 #:use-module (srfi srfi-64))
29 29
diff --git a/tests/utils.scm b/tests/utils.scm
index 52f3b58ede7..462e43e2b1f 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -1,5 +1,5 @@
1;;; GNU Guix --- Functional package management for GNU 1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> 2;;; Copyright © 2012-2021, 2024 Ludovic Courtès <ludo@gnu.org>
3;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> 3;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
4;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> 4;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
5;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com> 5;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
@@ -25,6 +25,7 @@
25(define-module (test-utils) 25(define-module (test-utils)
26 #:use-module ((guix config) #:select (%gzip)) 26 #:use-module ((guix config) #:select (%gzip))
27 #:use-module (guix utils) 27 #:use-module (guix utils)
28 #:use-module ((guix build utils) #:select (call-with-temporary-output-file))
28 #:use-module ((guix store) #:select (%store-prefix store-path-package-name)) 29 #:use-module ((guix store) #:select (%store-prefix store-path-package-name))
29 #:use-module ((guix search-paths) #:select (string-tokenize*)) 30 #:use-module ((guix search-paths) #:select (string-tokenize*))
30 #:use-module (srfi srfi-1) 31 #:use-module (srfi srfi-1)