01/04: tests: Fix 'guix environment --container' test in the presence of tmpfs.

[Ludovic Courtès]

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)))