testsuite/nsswitch/domusers.exp

   1 #
   2 # @(#) Test that all users are members of the Domain Users group.
   3 #
   4 # Note that this isn't necessarily true all the time but you have to
   5 # explicitly move people out of that group so it should be OK for te
   6 #
   7
   8 load_lib util-defs.exp
   9 load_lib $srcdir/lib/nsswitch-config.exp
  10
  11 # Get list of users and stick usernames in a hash
  12
  13 set user_list [util_start "getent" "passwd" ""]
  14
  15 foreach { user } [split $user_list "\n"] {
  16     set user_elts [split $user ":"]
  17     set users([lindex $user_elts 0]) 1
  18 }
  19
  20 # Get list of groups
  21
  22 set group_list [util_start "getent" "group" ""]
  23
  24 foreach { group } [split $group_list "\n"] {
  25     set group_elts [split $group ":"]
  26
  27     # Look for domain users group
  28
  29     if { ![regexp "Domain Users" [lindex $group_elts 0]] } {
  30         continue
  31     }
  32
  33     # Check each member of group was found in getent passwd
  34
  35     foreach { mem } [split [lindex $group_elts 3] ","] {
  36         set mems($mem) 1
  37     }
  38 }