diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-01-16 23:42:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-01-16 23:56:56 +0100 |
| commit | 686f2eae348a44f76afe1fa73230dd87578c227d (patch) | |
| tree | 37c5625f32022d6cb41f53c981492f4db711ce78 /tests/guix-package-net.sh | |
| parent | a1037aa87b39d4c774fe398fc97a58bafeb063d1 (diff) | |
tests: Clean up after 'tests/guix-package-net.sh'.
* tests/guix-package-net.sh: Remove second 'trap' line. Change first
'trap' line to remove "$module_dir" and *.lock files.
Diffstat (limited to 'tests/guix-package-net.sh')
| -rw-r--r-- | tests/guix-package-net.sh | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/tests/guix-package-net.sh b/tests/guix-package-net.sh index 6d21c6cff6a..a3beb238fe8 100644 --- a/tests/guix-package-net.sh +++ b/tests/guix-package-net.sh | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | # GNU Guix --- Functional package management for GNU | 1 | # GNU Guix --- Functional package management for GNU |
| 2 | # Copyright © 2012, 2013, 2014, 2015, 2017, 2019 Ludovic Courtès <ludo@gnu.org> | 2 | # Copyright © 2012-2015, 2017, 2019, 2022 Ludovic Courtès <ludo@gnu.org> |
| 3 | # Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> | 3 | # Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> |
| 4 | # Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com> | 4 | # Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com> |
| 5 | # | 5 | # |
| @@ -50,7 +50,10 @@ profile="t-profile-$$" | |||
| 50 | profile_alt="t-profile-alt-$$" | 50 | profile_alt="t-profile-alt-$$" |
| 51 | rm -f "$profile" | 51 | rm -f "$profile" |
| 52 | 52 | ||
| 53 | trap 'rm -f "$profile" "$profile_alt" "$profile-"[0-9]* "$profile_alt-"[0-9]* ; rm -rf t-home-'"$$" EXIT | 53 | module_dir="t-guix-package-net-$$" |
| 54 | mkdir "$module_dir" | ||
| 55 | |||
| 56 | trap 'rm -f "$profile" "$profile_alt" "$profile.lock" "$profile_alt.lock" "$profile-"[0-9]* "$profile_alt-"[0-9]* ; rm -r "$module_dir" t-home-'"$$" EXIT | ||
| 54 | 57 | ||
| 55 | 58 | ||
| 56 | guix package --bootstrap -p "$profile" -i guile-bootstrap | 59 | guix package --bootstrap -p "$profile" -i guile-bootstrap |
| @@ -177,10 +180,6 @@ guix package -p "$profile" -p "$profile_alt" --search-paths \ | |||
| 177 | | grep "LIBRARY_PATH.*$profile/lib.$profile_alt/lib" | 180 | | grep "LIBRARY_PATH.*$profile/lib.$profile_alt/lib" |
| 178 | 181 | ||
| 179 | # Simulate an upgrade and make sure the package order is preserved. | 182 | # Simulate an upgrade and make sure the package order is preserved. |
| 180 | module_dir="t-guix-package-net-$$" | ||
| 181 | trap 'rm -rf "$module_dir"' EXIT | ||
| 182 | |||
| 183 | mkdir "$module_dir" | ||
| 184 | cat > "$module_dir/new.scm" <<EOF | 183 | cat > "$module_dir/new.scm" <<EOF |
| 185 | (define-module (new) | 184 | (define-module (new) |
| 186 | #:use-module (guix) | 185 | #:use-module (guix) |
