diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-02-03 11:26:25 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-02-04 02:13:43 +0100 |
| commit | ad167d028e97dca1937ad6ae3d89d2c4de997754 (patch) | |
| tree | 8fe4f5a176f540ab7af9adb4e031ea07bd2f1cb6 /tests | |
| parent | cf98d342b0899be3b72438d2dd5a2350f0f78f33 (diff) | |
| download | gnu-guix-ad167d028e97dca1937ad6ae3d89d2c4de997754.tar gnu-guix-ad167d028e97dca1937ad6ae3d89d2c4de997754.tar.gz | |
file-systems: Remove dependency on (guix store).
(gnu system file-systems) is used on the "build" side since commit
5970e8e248f6327c41c83b86bb2c89be7c3b1b4e.
* gnu/system/file-systems.scm: Remove dependency on (guix store).
(%store-prefix): New procedure.
* tests/file-systems.scm ("does not pull (guix config)"): New test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/file-systems.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/file-systems.scm b/tests/file-systems.scm index fd1599e132..467ee8ca5d 100644 --- a/tests/file-systems.scm +++ b/tests/file-systems.scm @@ -18,6 +18,7 @@ (define-module (test-file-systems) #:use-module (guix store) + #:use-module (guix modules) #:use-module (gnu system file-systems) #:use-module (srfi srfi-64) #:use-module (rnrs bytevectors)) @@ -72,4 +73,11 @@ (device "/foo") (flags '(bind-mount read-only))))))))) +(test-assert "does not pull (guix config)" + ;; This module is meant both for the host side and "build side", so make + ;; sure it doesn't pull in (guix config), which depends on the user's + ;; config. + (not (member '(guix config) + (source-module-closure '((gnu system file-systems)))))) + (test-end) |