diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/guix-environment.sh | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/guix-environment.sh b/tests/guix-environment.sh index 56cb289f2ff..450f0265221 100644 --- a/tests/guix-environment.sh +++ b/tests/guix-environment.sh | |||
| @@ -49,18 +49,21 @@ test -x `sed -r 's/^export PATH="(.*)"/\1/' "$tmpdir/a"`/guile | |||
| 49 | 49 | ||
| 50 | cmp "$tmpdir/a" "$tmpdir/b" | 50 | cmp "$tmpdir/a" "$tmpdir/b" |
| 51 | 51 | ||
| 52 | # Check '--preserve'. | 52 | # Check '--preserve', as well as its -E VAR=VALUE special case. |
| 53 | GUIX_TEST_ABC=1 | 53 | GUIX_TEST_ABC=1 |
| 54 | GUIX_TEST_DEF=2 | 54 | GUIX_TEST_DEF=2 |
| 55 | GUIX_TEST_XYZ=3 | 55 | GUIX_TEST_XYZ=3 |
| 56 | GUIX_TEST_ZZZ=4 | ||
| 56 | export GUIX_TEST_ABC GUIX_TEST_DEF GUIX_TEST_XYZ | 57 | export GUIX_TEST_ABC GUIX_TEST_DEF GUIX_TEST_XYZ |
| 57 | guix environment --bootstrap --ad-hoc guile-bootstrap --pure \ | 58 | guix environment --bootstrap --ad-hoc guile-bootstrap --pure \ |
| 58 | --preserve='^GUIX_TEST_A' --preserve='^GUIX_TEST_D' \ | 59 | --preserve='^GUIX_TEST_A' --preserve='^GUIX_TEST_D' \ |
| 60 | --preserve='^GUIX_TEST_Z' -E 'GUIX_TEST_ZZZ=overridden' \ | ||
| 59 | -- "$SHELL" -c set > "$tmpdir/a" | 61 | -- "$SHELL" -c set > "$tmpdir/a" |
| 60 | grep '^PATH=' "$tmpdir/a" | 62 | grep '^PATH=' "$tmpdir/a" |
| 61 | grep '^GUIX_TEST_ABC=1' "$tmpdir/a" | 63 | grep '^GUIX_TEST_ABC=1' "$tmpdir/a" |
| 62 | grep '^GUIX_TEST_DEF=2' "$tmpdir/a" | 64 | grep '^GUIX_TEST_DEF=2' "$tmpdir/a" |
| 63 | grep '^GUIX_TEST_XYZ=3' "$tmpdir/a" && false | 65 | grep '^GUIX_TEST_XYZ=3' "$tmpdir/a" && false |
| 66 | grep '^GUIX_TEST_ZZZ=overridden' "$tmpdir/a" | ||
| 64 | 67 | ||
| 65 | # Make sure the exit value is preserved. | 68 | # Make sure the exit value is preserved. |
| 66 | if guix environment --bootstrap --ad-hoc guile-bootstrap --pure \ | 69 | if guix environment --bootstrap --ad-hoc guile-bootstrap --pure \ |
