diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/guix-package.sh | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/guix-package.sh b/tests/guix-package.sh index 9b0e75e6dad..e35871f2a24 100644 --- a/tests/guix-package.sh +++ b/tests/guix-package.sh | |||
| @@ -28,10 +28,11 @@ readlink_base () | |||
| 28 | basename `readlink "$1"` | 28 | basename `readlink "$1"` |
| 29 | } | 29 | } |
| 30 | 30 | ||
| 31 | module_dir="t-guix-package-$$" | ||
| 31 | profile="t-profile-$$" | 32 | profile="t-profile-$$" |
| 32 | rm -f "$profile" | 33 | rm -f "$profile" |
| 33 | 34 | ||
| 34 | trap 'rm "$profile" "$profile-"[0-9]* ; rm -rf t-home-'"$$" EXIT | 35 | trap 'rm "$profile" "$profile-"[0-9]* ; rm -rf "$module_dir" t-home-'"$$" EXIT |
| 35 | 36 | ||
| 36 | # Use `-e' with a non-package expression. | 37 | # Use `-e' with a non-package expression. |
| 37 | if guix package --bootstrap -e +; | 38 | if guix package --bootstrap -e +; |
| @@ -257,9 +258,7 @@ guix package -I | head -1 2> "$HOME/err2" | |||
| 257 | test "`cat "$HOME/err1" "$HOME/err2"`" = "" | 258 | test "`cat "$HOME/err1" "$HOME/err2"`" = "" |
| 258 | 259 | ||
| 259 | # Make sure '-L' extends the package module search path. | 260 | # Make sure '-L' extends the package module search path. |
| 260 | module_dir="t-guix-package-$$" | ||
| 261 | mkdir "$module_dir" | 261 | mkdir "$module_dir" |
| 262 | trap "rm -rf $module_dir" EXIT | ||
| 263 | 262 | ||
| 264 | cat > "$module_dir/foo.scm"<<EOF | 263 | cat > "$module_dir/foo.scm"<<EOF |
| 265 | (define-module (foo) | 264 | (define-module (foo) |
