diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-10 14:08:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-10 14:08:59 +0200 |
| commit | e25234e34b0d2709e8ff06609cedce2b24b50ee8 (patch) | |
| tree | 000c66cf8d98ceea5e98f6807ce577fec4b43af5 /tests | |
| parent | 7313a52e7a465a2c48894658c9fdaa67d9609c86 (diff) | |
build: Make sure tests/guix-package.sh doesn't leave anything behind it.
Fixes a regression introduced in commit 300868ba.
* tests/guix-package.sh: Move 'module_dir' definition to the top, and
"rm -rf" it from the top-most 'trap'. Remove second use of 'trap'.
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) |
