diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-08-28 16:02:41 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-08-29 00:09:44 +0200 |
| commit | 7cdec6a90ab6342b1ff7b4a3e9b7ec82e9c8b914 (patch) | |
| tree | 47713958196757ced67c62909ddce82bcde6ea79 | |
| parent | e385e95767bec5b4cf1e53bbd89202e417b919fe (diff) | |
| download | patches-7cdec6a90ab6342b1ff7b4a3e9b7ec82e9c8b914.tar patches-7cdec6a90ab6342b1ff7b4a3e9b7ec82e9c8b914.tar.gz | |
tests: Fix 'guix environment --container' test in the presence of tmpfs.
Reported by Ting-Wei Lan <lantw44@gmail.com>.
This is a followup to 1250034d5aff14fe236aad9900233a2b6f8563bb.
* tests/guix-environment-container.sh (mount_test_code): Reverse order
of 'string-prefix?' arguments.
| -rw-r--r-- | tests/guix-environment-container.sh | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/guix-environment-container.sh b/tests/guix-environment-container.sh index 12da950eba..d7c1b7057e 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))) |