diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-04-01 15:11:40 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-04-15 22:36:42 +0200 |
| commit | 54be7795b5cc2f6cad05f8649121372c9d5af806 (patch) | |
| tree | caa185fa31a2d759a9e8e44f7d53490cd2a71944 /tests | |
| parent | 6dc238f2613c5049e2f2d346c4482b7ecc76c9fa (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.scm | 6 | ||||
| -rw-r--r-- | tests/egg.scm | 5 | ||||
| -rw-r--r-- | tests/opam.scm | 5 | ||||
| -rw-r--r-- | tests/publish.scm | 5 | ||||
| -rw-r--r-- | tests/store-database.scm | 6 | ||||
| -rw-r--r-- | tests/utils.scm | 3 |
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) |
