summaryrefslogtreecommitdiff
path: root/tests/file-systems.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-02-03 11:26:25 +0100
committerLudovic Courtès <ludo@gnu.org>2017-02-04 02:13:43 +0100
commitad167d028e97dca1937ad6ae3d89d2c4de997754 (patch)
tree8fe4f5a176f540ab7af9adb4e031ea07bd2f1cb6 /tests/file-systems.scm
parentcf98d342b0899be3b72438d2dd5a2350f0f78f33 (diff)
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/file-systems.scm')
-rw-r--r--tests/file-systems.scm8
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)