HCoop
/
jackhill
/
guix
/
guix.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gnu: lvm2: Make sure compiled objects are stripped.
[jackhill/guix/guix.git]
/
tests
/
guix-environment-container.sh
diff --git
a/tests/guix-environment-container.sh
b/tests/guix-environment-container.sh
index
5ea6c49
..
d7c1b70
100644
(file)
--- a/
tests/guix-environment-container.sh
+++ b/
tests/guix-environment-container.sh
@@
-65,10
+65,15
@@
mount_test_code="
(match (string-split line #\space)
;; Empty line.
((\"\") #f)
(match (string-split line #\space)
;; Empty line.
((\"\") #f)
- ;; Ignore these types of file systems.
- ((_ _ (or \"tmpfs\" \"proc\" \"sysfs\" \"devtmpfs\"
- \"devpts\" \"cgroup\" \"mqueue\") _ _ _)
+ ;; Ignore the root file system.
+ ((_ \"/\" _ _ _ _)
#f)
#f)
+ ;; Ignore these types of file systems, except if they
+ ;; correspond to a parent file system.
+ ((_ mount (or \"tmpfs\" \"proc\" \"sysfs\" \"devtmpfs\"
+ \"devpts\" \"cgroup\" \"mqueue\") _ _ _)
+ (and (string-prefix? (getcwd) mount)
+ mount))
((_ mount _ _ _ _)
mount)))
(string-split (call-with-input-file \"/proc/mounts\" read-string)
((_ mount _ _ _ _)
mount)))
(string-split (call-with-input-file \"/proc/mounts\" read-string)