[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/04: tests: Fix 'guix environment --container' test in the presence of
From: |
Ludovic Courtès |
Subject: |
01/04: tests: Fix 'guix environment --container' test in the presence of tmpfs. |
Date: |
Sun, 28 Aug 2016 22:09:52 +0000 (UTC) |
civodul pushed a commit to branch master
in repository guix.
commit 7cdec6a90ab6342b1ff7b4a3e9b7ec82e9c8b914
Author: Ludovic Courtès <address@hidden>
Date: Sun Aug 28 16:02:41 2016 +0200
tests: Fix 'guix environment --container' test in the presence of tmpfs.
Reported by Ting-Wei Lan <address@hidden>.
This is a followup to 1250034d5aff14fe236aad9900233a2b6f8563bb.
* tests/guix-environment-container.sh (mount_test_code): Reverse order
of 'string-prefix?' arguments.
---
tests/guix-environment-container.sh | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tests/guix-environment-container.sh
b/tests/guix-environment-container.sh
index 12da950..d7c1b70 100644
--- a/tests/guix-environment-container.sh
+++ b/tests/guix-environment-container.sh
@@ -72,7 +72,7 @@ mount_test_code="
;; correspond to a parent file system.
((_ mount (or \"tmpfs\" \"proc\" \"sysfs\" \"devtmpfs\"
\"devpts\" \"cgroup\" \"mqueue\") _ _ _)
- (and (string-prefix? mount (getcwd))
+ (and (string-prefix? (getcwd) mount)
mount))
((_ mount _ _ _ _)
mount)))