aboutsummaryrefslogtreecommitdiff
path: root/gnu/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-11-18 23:34:19 +0100
committerLudovic Courtès <ludo@gnu.org>2018-11-18 23:37:25 +0100
commitb297934437932de730432629b361fcb422accbb7 (patch)
tree62a0351ee6ac44a546180ea448d24cfd691c4ad1 /gnu/tests
parent564cf93f2aca60171b4b97559ffc6c952e73e8ed (diff)
downloadguix-b297934437932de730432629b361fcb422accbb7.tar.gz
guix-b297934437932de730432629b361fcb422accbb7.zip
activation: Aways pass '-d HOME' to 'useradd'.
Fixes <https://bugs.gnu.org/33422>. Reported by fps. * gnu/build/activation.scm (add-user): Always pass "-d HOME" when HOME is true. Pass "--create-home" only when HOME, CREATE-HOME?, and SYSTEM? are true. (activate-users+groups): Pass #:create-home? create-home? to 'ensure-user'. * gnu/tests/base.scm (run-basic-test)["accounts"]: Test 'passwd:dir' as well.
Diffstat (limited to 'gnu/tests')
-rw-r--r--gnu/tests/base.scm11
1 files changed, 8 insertions, 3 deletions
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm
index 02882f4b46..03392cef38 100644
--- a/gnu/tests/base.scm
+++ b/gnu/tests/base.scm
@@ -154,10 +154,15 @@ info --version")
(#f (reverse result))
(x (loop (cons x result))))))
marionette)))
- (lset= string=?
- (map passwd:name users)
+ (lset= equal?
+ (map (lambda (user)
+ (list (passwd:name user)
+ (passwd:dir user)))
+ users)
(list
- #$@(map user-account-name
+ #$@(map (lambda (account)
+ `(list ,(user-account-name account)
+ ,(user-account-home-directory account)))
(operating-system-user-accounts os))))))
(test-assert "shepherd services"