diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-27 18:04:00 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-29 10:13:44 +0200 |
| commit | d824cfbabeb0780c9ea7a6dab02c47b6a4d029c6 (patch) | |
| tree | 6ebf175470992c311a20278cf3b3162da6c9c82b /tests | |
| parent | 4c89dc354ea19234b05b7948a55ec435df9753f0 (diff) | |
guix package: Add 'install', 'remove', and 'upgrade' aliases.
* guix/scripts/install.scm, guix/scripts/remove.scm,
guix/scripts/upgrade.scm, tests/guix-package-aliases.sh: New files.
* Makefile.am (MODULES, SH_TESTS): Add them.
* po/guix/POTFILES.in: Add them.
* guix/scripts/package.scm (guix-package): Split with...
(guix-package*): ... this. New procedure.
* doc/guix.texi (Invoking guix package): Document them.
(Binary Installation, Application Setup, Package Management)
(Packages with Multiple Outputs, Package Modules)
(X.509 Certificates, Installing Debugging Files): Use 'guix install' in
simple examples.
* etc/completion/bash/guix (_guix_complete): Handle "install", "remove",
and "upgrade".
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/guix-package-aliases.sh | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/tests/guix-package-aliases.sh b/tests/guix-package-aliases.sh new file mode 100644 index 00000000000..64ed2fbb675 --- /dev/null +++ b/tests/guix-package-aliases.sh | |||
| @@ -0,0 +1,58 @@ | |||
| 1 | # GNU Guix --- Functional package management for GNU | ||
| 2 | # Copyright © 2019 Ludovic Courtès <ludo@gnu.org> | ||
| 3 | # | ||
| 4 | # This file is part of GNU Guix. | ||
| 5 | # | ||
| 6 | # GNU Guix is free software; you can redistribute it and/or modify it | ||
| 7 | # under the terms of the GNU General Public License as published by | ||
| 8 | # the Free Software Foundation; either version 3 of the License, or (at | ||
| 9 | # your option) any later version. | ||
| 10 | # | ||
| 11 | # GNU Guix is distributed in the hope that it will be useful, but | ||
| 12 | # WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 14 | # GNU General Public License for more details. | ||
| 15 | # | ||
| 16 | # You should have received a copy of the GNU General Public License | ||
| 17 | # along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | ||
| 18 | |||
| 19 | # | ||
| 20 | # Test the `guix package' aliases. | ||
| 21 | # | ||
| 22 | |||
| 23 | guix install --version | ||
| 24 | |||
| 25 | readlink_base () | ||
| 26 | { | ||
| 27 | basename `readlink "$1"` | ||
| 28 | } | ||
| 29 | |||
| 30 | profile="t-profile-$$" | ||
| 31 | rm -f "$profile" | ||
| 32 | |||
| 33 | trap 'rm -f "$profile" "$profile-"[0-9]*' EXIT | ||
| 34 | |||
| 35 | guix install --bootstrap guile-bootstrap -p "$profile" | ||
| 36 | test -x "$profile/bin/guile" | ||
| 37 | |||
| 38 | # Make sure '-r' isn't passed as-is to 'guix package'. | ||
| 39 | if guix install -r guile-bootstrap -p "$profile" --bootstrap | ||
| 40 | then false; else true; fi | ||
| 41 | test -x "$profile/bin/guile" | ||
| 42 | |||
| 43 | guix upgrade --version | ||
| 44 | guix upgrade -n | ||
| 45 | guix upgrade gui.e -n | ||
| 46 | if guix upgrade foo bar -n; | ||
| 47 | then false; else true; fi | ||
| 48 | |||
| 49 | guix remove --version | ||
| 50 | guix remove --bootstrap guile-bootstrap -p "$profile" | ||
| 51 | ! test -x "$profile/bin/guile" | ||
| 52 | test `guix package -p "$profile" -I | wc -l` -eq 0 | ||
| 53 | |||
| 54 | if guix remove -p "$profile" this-is-not-installed --bootstrap | ||
| 55 | then false; else true; fi | ||
| 56 | |||
| 57 | if guix remove -i guile-bootstrap -p "$profile" --bootstrap | ||
| 58 | then false; else true; fi | ||
