cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

User: hasGroup 

Signed-off-by: Félix Sipma <felix.sipma@no-log.org>
This commit is contained in:
Félix Sipma 2014-11-23 18:25:39 +01:00 committed by Joey Hess
parent feae1912ab
commit f4e06ae778
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Propellor/Property/User.hs
View File

@ -30,7 +30,7 @@ hasSomePassword user context = check ((/= HasPassword) <$> getPasswordStatus use
hasPassword :: UserName -> Context -> Property hasPassword :: UserName -> Context -> Property
hasPassword user context = withPrivData (Password user) context $ \getpassword -> hasPassword user context = withPrivData (Password user) context $ \getpassword ->
property (user ++ " has password") $ property (user ++ " has password") $
getpassword $ \password -> makeChange $ getpassword $ \password -> makeChange $
withHandle StdinHandle createProcessSuccess withHandle StdinHandle createProcessSuccess
(proc "chpasswd" []) $ \h -> do (proc "chpasswd" []) $ \h -> do
@ -60,3 +60,12 @@ isLockedPassword user = (== LockedPassword) <$> getPasswordStatus user
homedir :: UserName -> IO FilePath homedir :: UserName -> IO FilePath
homedir user = homeDirectory <$> getUserEntryForName user homedir user = homeDirectory <$> getUserEntryForName user
hasGroup :: UserName -> GroupName -> Property
hasGroup user group' = check test $ cmdProperty "adduser"
[ user
, group'
]
`describe` unwords ["user", user, "in group", group']
where
test = not <$> elem group' <$> words <$> readProcess "groups" [user]