diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-05-24 18:02:54 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-05-24 18:02:54 +0200 |
| commit | 0c09a306e59e2feec9818335b0b4f3355c02f420 (patch) | |
| tree | b554200d7969247f47ebfbb4ed9c81dd572cdce5 /gnu/system.scm | |
| parent | 6ec1f4caa34d350d9f8b90b71192c1d32807d934 (diff) | |
| download | guix-0c09a306e59e2feec9818335b0b4f3355c02f420.tar guix-0c09a306e59e2feec9818335b0b4f3355c02f420.tar.gz | |
system: Make sure user accounts refer to existing groups.
Fixes <http://bugs.gnu.org/20646>.
Reported by David Thompson <davet@gnu.org>.
* gnu/system/shadow.scm (assert-valid-users/groups): New procedure
* gnu/system.scm (operating-system-activation-script): Use it.
* tests/guix-system.sh (make_user_config): New function.
Add 3 tests using it.
* po/guix/POTFILES.in: Add gnu/system/shadow.scm.
Diffstat (limited to 'gnu/system.scm')
| -rw-r--r-- | gnu/system.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gnu/system.scm b/gnu/system.scm index b8d0e62f60..79de80a3eb 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -686,6 +686,8 @@ etc." (define group-specs (map user-group->gexp groups)) + (assert-valid-users/groups accounts groups) + (gexp->file "activate" #~(begin (eval-when (expand load eval) |