05/11: environment: Add tests for '--profile'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 10208952eaf0834b9cdf341bc75463ed033af315
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Oct 1 18:49:22 2021 +0200

    environment: Add tests for '--profile'.
    
    This is a followup to a643deac2de81755a1843a3b41dd53857678bebc.
    
    * tests/guix-environment-container.sh, tests/guix-environment.sh: Add
    tests for '--profile'.
---
 tests/guix-environment-container.sh | 8 ++++++++
 tests/guix-environment.sh           | 7 +++++++
 2 files changed, 15 insertions(+)

diff --git a/tests/guix-environment-container.sh 
b/tests/guix-environment-container.sh
index f2d15c8..2e238c5 100644
--- a/tests/guix-environment-container.sh
+++ b/tests/guix-environment-container.sh
@@ -44,6 +44,14 @@ else
     test $? = 42
 fi
 
+# Try '--root' and '--profile'.
+root="$tmpdir/root"
+guix environment -C --ad-hoc --bootstrap guile-bootstrap -r "$root" -- guile 
--version
+guix environment -C -p "$root" --bootstrap -- guile --version
+path1=$(guix environment -C -p "$root" --bootstrap -- guile -c '(display 
(getenv "PATH"))')
+path2=$(guix environment -C --ad-hoc --bootstrap guile-bootstrap  -- guile -c 
'(display (getenv "PATH"))')
+test "$path1" = "$path2"
+
 # Make sure "localhost" resolves.
 guix environment --container --ad-hoc --bootstrap guile-bootstrap \
      -- guile -c '(exit (pair? (getaddrinfo "localhost" "80")))'
diff --git a/tests/guix-environment.sh b/tests/guix-environment.sh
index afadcbe..f4fc2e3 100644
--- a/tests/guix-environment.sh
+++ b/tests/guix-environment.sh
@@ -119,6 +119,13 @@ test `readlink "$gcroot"` = "$expected"
 guix environment --bootstrap -r "$gcroot" --ad-hoc guile-bootstrap \
      -- guile -c 1
 test `readlink "$gcroot"` = "$expected"
+
+# Make sure '-p' works as expected.
+test $(guix environment -p "$gcroot" -- "$SHELL" -c 'echo $GUIX_ENVIRONMENT') 
= "$expected"
+paths1="$(guix environment -p "$gcroot" --search-paths)"
+paths2="$(guix environment --bootstrap --ad-hoc guile-bootstrap 
--search-paths)"
+test "$paths1" = "$paths2"
+
 rm "$gcroot"
 
 # Try '-r' with a relative file name.