diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2018-11-20 01:14:12 +0100 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2018-11-20 01:14:12 +0100 |
| commit | 4f70db97a040b35f125484ce8885766ca5807dd4 (patch) | |
| tree | 30274f4a57e4a149127125fb6df626dd1d9f9cf0 /gnu/tests | |
| parent | 2d546858b139e5fcf2cbdf9958a17fd98803ac4c (diff) | |
| parent | 9acfe275adf1bc27483ba58c6d86a84ba20aa08f (diff) | |
| download | guix-4f70db97a040b35f125484ce8885766ca5807dd4.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/tests')
| -rw-r--r-- | gnu/tests/base.scm | 11 |
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" |