diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-10-14 22:19:34 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-10-22 01:46:55 +0200 |
| commit | a3619079f95213c4f983e69210ed12b38fd31022 (patch) | |
| tree | 6e6883954b085bc7ef47a5472d046e708c9d535a /tests | |
| parent | 5f0febcd459d103e6078e688aa28d5d832d82a60 (diff) | |
Remove now unnecessary uses of (guix grafts).
These modules would use (guix grafts) just to access '%graft?' and
related bindings, which are now in (guix store).
* gnu/ci.scm,
guix/gexp.scm,
guix/lint.scm,
guix/scripts.scm,
guix/scripts/archive.scm,
guix/scripts/build.scm,
guix/scripts/challenge.scm,
guix/scripts/deploy.scm,
guix/scripts/environment.scm,
guix/scripts/home.scm,
guix/scripts/pack.scm,
guix/scripts/package.scm,
guix/scripts/pull.scm,
guix/scripts/size.scm,
guix/scripts/system.scm,
guix/scripts/weather.scm,
tests/builders.scm,
tests/channels.scm,
tests/cpan.scm,
tests/derivations.scm,
tests/gexp.scm,
tests/graph.scm,
tests/guix-daemon.sh,
tests/monads.scm,
tests/pack.scm,
tests/packages.scm,
tests/profiles.scm,
tests/system.scm: Remove #:use-module (guix grafts).
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/builders.scm | 1 | ||||
| -rw-r--r-- | tests/channels.scm | 1 | ||||
| -rw-r--r-- | tests/cpan.scm | 2 | ||||
| -rw-r--r-- | tests/derivations.scm | 1 | ||||
| -rw-r--r-- | tests/gexp.scm | 1 | ||||
| -rw-r--r-- | tests/graph.scm | 1 | ||||
| -rw-r--r-- | tests/guix-daemon.sh | 4 | ||||
| -rw-r--r-- | tests/monads.scm | 1 | ||||
| -rw-r--r-- | tests/pack.scm | 1 | ||||
| -rw-r--r-- | tests/packages.scm | 1 | ||||
| -rw-r--r-- | tests/profiles.scm | 1 | ||||
| -rw-r--r-- | tests/system.scm | 1 |
12 files changed, 3 insertions, 13 deletions
diff --git a/tests/builders.scm b/tests/builders.scm index 28532274651..0b5577c7a3c 100644 --- a/tests/builders.scm +++ b/tests/builders.scm | |||
| @@ -25,7 +25,6 @@ | |||
| 25 | #:use-module (guix build gnu-build-system) | 25 | #:use-module (guix build gnu-build-system) |
| 26 | #:use-module (guix build utils) | 26 | #:use-module (guix build utils) |
| 27 | #:use-module (guix build-system python) | 27 | #:use-module (guix build-system python) |
| 28 | #:use-module (guix grafts) | ||
| 29 | #:use-module (guix store) | 28 | #:use-module (guix store) |
| 30 | #:use-module (guix monads) | 29 | #:use-module (guix monads) |
| 31 | #:use-module (guix utils) | 30 | #:use-module (guix utils) |
diff --git a/tests/channels.scm b/tests/channels.scm index 0fe870dbaf5..62312e240c3 100644 --- a/tests/channels.scm +++ b/tests/channels.scm | |||
| @@ -23,7 +23,6 @@ | |||
| 23 | #:use-module ((guix build syscalls) #:select (mkdtemp!)) | 23 | #:use-module ((guix build syscalls) #:select (mkdtemp!)) |
| 24 | #:use-module (guix tests) | 24 | #:use-module (guix tests) |
| 25 | #:use-module (guix store) | 25 | #:use-module (guix store) |
| 26 | #:use-module ((guix grafts) #:select (%graft?)) | ||
| 27 | #:use-module (guix derivations) | 26 | #:use-module (guix derivations) |
| 28 | #:use-module (guix sets) | 27 | #:use-module (guix sets) |
| 29 | #:use-module (guix gexp) | 28 | #:use-module (guix gexp) |
diff --git a/tests/cpan.scm b/tests/cpan.scm index b4db9e60e46..bbcd108e129 100644 --- a/tests/cpan.scm +++ b/tests/cpan.scm | |||
| @@ -23,7 +23,7 @@ | |||
| 23 | #:use-module (guix base32) | 23 | #:use-module (guix base32) |
| 24 | #:use-module (gcrypt hash) | 24 | #:use-module (gcrypt hash) |
| 25 | #:use-module (guix tests http) | 25 | #:use-module (guix tests http) |
| 26 | #:use-module (guix grafts) | 26 | #:use-module ((guix store) #:select (%graft?)) |
| 27 | #:use-module (srfi srfi-64) | 27 | #:use-module (srfi srfi-64) |
| 28 | #:use-module (web client) | 28 | #:use-module (web client) |
| 29 | #:use-module (ice-9 match)) | 29 | #:use-module (ice-9 match)) |
diff --git a/tests/derivations.scm b/tests/derivations.scm index 57d80412dc2..3912fd31d8a 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm | |||
| @@ -20,7 +20,6 @@ | |||
| 20 | 20 | ||
| 21 | (define-module (test-derivations) | 21 | (define-module (test-derivations) |
| 22 | #:use-module (guix derivations) | 22 | #:use-module (guix derivations) |
| 23 | #:use-module (guix grafts) | ||
| 24 | #:use-module (guix store) | 23 | #:use-module (guix store) |
| 25 | #:use-module (guix utils) | 24 | #:use-module (guix utils) |
| 26 | #:use-module ((gcrypt hash) #:prefix gcrypt:) | 25 | #:use-module ((gcrypt hash) #:prefix gcrypt:) |
diff --git a/tests/gexp.scm b/tests/gexp.scm index 07e940ffdcd..6d57ac5d7a1 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm | |||
| @@ -21,7 +21,6 @@ | |||
| 21 | #:use-module (guix store) | 21 | #:use-module (guix store) |
| 22 | #:use-module (guix monads) | 22 | #:use-module (guix monads) |
| 23 | #:use-module (guix gexp) | 23 | #:use-module (guix gexp) |
| 24 | #:use-module (guix grafts) | ||
| 25 | #:use-module (guix derivations) | 24 | #:use-module (guix derivations) |
| 26 | #:use-module (guix packages) | 25 | #:use-module (guix packages) |
| 27 | #:use-module (guix build-system trivial) | 26 | #:use-module (guix build-system trivial) |
diff --git a/tests/graph.scm b/tests/graph.scm index 6aa2d0e0ffb..6674b5cc8f9 100644 --- a/tests/graph.scm +++ b/tests/graph.scm | |||
| @@ -24,7 +24,6 @@ | |||
| 24 | #:use-module (guix derivations) | 24 | #:use-module (guix derivations) |
| 25 | #:use-module (guix store) | 25 | #:use-module (guix store) |
| 26 | #:use-module (guix monads) | 26 | #:use-module (guix monads) |
| 27 | #:use-module (guix grafts) | ||
| 28 | #:use-module (guix build-system gnu) | 27 | #:use-module (guix build-system gnu) |
| 29 | #:use-module (guix build-system trivial) | 28 | #:use-module (guix build-system trivial) |
| 30 | #:use-module (guix gexp) | 29 | #:use-module (guix gexp) |
diff --git a/tests/guix-daemon.sh b/tests/guix-daemon.sh index 330ad688350..4b09c8c1622 100644 --- a/tests/guix-daemon.sh +++ b/tests/guix-daemon.sh | |||
| @@ -27,7 +27,7 @@ guix build --version | |||
| 27 | 27 | ||
| 28 | drv="`guix build emacs -d`" | 28 | drv="`guix build emacs -d`" |
| 29 | out="`guile -c ' \ | 29 | out="`guile -c ' \ |
| 30 | (use-modules (guix) (guix grafts) (gnu packages emacs)) \ | 30 | (use-modules (guix) (gnu packages emacs)) \ |
| 31 | (define store (open-connection)) \ | 31 | (define store (open-connection)) \ |
| 32 | (%graft? #f) | 32 | (%graft? #f) |
| 33 | (display (derivation->output-path (package-derivation store emacs)))'`" | 33 | (display (derivation->output-path (package-derivation store emacs)))'`" |
| @@ -122,7 +122,7 @@ guix-daemon --no-substitutes --listen="$socket" --disable-chroot \ | |||
| 122 | daemon_pid=$! | 122 | daemon_pid=$! |
| 123 | 123 | ||
| 124 | guile -c " | 124 | guile -c " |
| 125 | (use-modules (guix) (guix grafts) (guix tests) (srfi srfi-34)) | 125 | (use-modules (guix) (guix tests) (srfi srfi-34)) |
| 126 | (define store (open-connection-for-tests \"$socket\")) | 126 | (define store (open-connection-for-tests \"$socket\")) |
| 127 | 127 | ||
| 128 | ;; Disable grafts to avoid building more than needed. | 128 | ;; Disable grafts to avoid building more than needed. |
diff --git a/tests/monads.scm b/tests/monads.scm index 19b74f4fb9f..7f255f02bf5 100644 --- a/tests/monads.scm +++ b/tests/monads.scm | |||
| @@ -20,7 +20,6 @@ | |||
| 20 | #:use-module (guix tests) | 20 | #:use-module (guix tests) |
| 21 | #:use-module (guix store) | 21 | #:use-module (guix store) |
| 22 | #:use-module (guix monads) | 22 | #:use-module (guix monads) |
| 23 | #:use-module (guix grafts) | ||
| 24 | #:use-module (guix derivations) | 23 | #:use-module (guix derivations) |
| 25 | #:use-module (guix packages) | 24 | #:use-module (guix packages) |
| 26 | #:use-module (gnu packages) | 25 | #:use-module (gnu packages) |
diff --git a/tests/pack.scm b/tests/pack.scm index 98bfedf21c9..a4c388d93e2 100644 --- a/tests/pack.scm +++ b/tests/pack.scm | |||
| @@ -25,7 +25,6 @@ | |||
| 25 | #:use-module (guix profiles) | 25 | #:use-module (guix profiles) |
| 26 | #:use-module (guix packages) | 26 | #:use-module (guix packages) |
| 27 | #:use-module (guix monads) | 27 | #:use-module (guix monads) |
| 28 | #:use-module (guix grafts) | ||
| 29 | #:use-module (guix tests) | 28 | #:use-module (guix tests) |
| 30 | #:use-module (guix gexp) | 29 | #:use-module (guix gexp) |
| 31 | #:use-module (guix modules) | 30 | #:use-module (guix modules) |
diff --git a/tests/packages.scm b/tests/packages.scm index dc03b134171..a71eb1125d4 100644 --- a/tests/packages.scm +++ b/tests/packages.scm | |||
| @@ -23,7 +23,6 @@ | |||
| 23 | #:use-module (guix tests) | 23 | #:use-module (guix tests) |
| 24 | #:use-module (guix store) | 24 | #:use-module (guix store) |
| 25 | #:use-module (guix monads) | 25 | #:use-module (guix monads) |
| 26 | #:use-module (guix grafts) | ||
| 27 | #:use-module (guix gexp) | 26 | #:use-module (guix gexp) |
| 28 | #:use-module (guix utils) | 27 | #:use-module (guix utils) |
| 29 | #:use-module ((guix build utils) #:select (tarball?)) | 28 | #:use-module ((guix build utils) #:select (tarball?)) |
diff --git a/tests/profiles.scm b/tests/profiles.scm index 7bed946bf3b..9ad03f2b243 100644 --- a/tests/profiles.scm +++ b/tests/profiles.scm | |||
| @@ -23,7 +23,6 @@ | |||
| 23 | #:use-module (guix gexp) | 23 | #:use-module (guix gexp) |
| 24 | #:use-module (guix store) | 24 | #:use-module (guix store) |
| 25 | #:use-module (guix monads) | 25 | #:use-module (guix monads) |
| 26 | #:use-module (guix grafts) | ||
| 27 | #:use-module (guix packages) | 26 | #:use-module (guix packages) |
| 28 | #:use-module (guix derivations) | 27 | #:use-module (guix derivations) |
| 29 | #:use-module (guix build-system trivial) | 28 | #:use-module (guix build-system trivial) |
diff --git a/tests/system.scm b/tests/system.scm index 873fed4aee5..876e15a25eb 100644 --- a/tests/system.scm +++ b/tests/system.scm | |||
| @@ -24,7 +24,6 @@ | |||
| 24 | #:use-module (guix monads) | 24 | #:use-module (guix monads) |
| 25 | #:use-module ((guix gexp) #:select (lower-object)) | 25 | #:use-module ((guix gexp) #:select (lower-object)) |
| 26 | #:use-module ((guix utils) #:select (%current-system)) | 26 | #:use-module ((guix utils) #:select (%current-system)) |
| 27 | #:use-module (guix grafts) | ||
| 28 | #:use-module (srfi srfi-1) | 27 | #:use-module (srfi srfi-1) |
| 29 | #:use-module (srfi srfi-64)) | 28 | #:use-module (srfi srfi-64)) |
| 30 | 29 | ||
