testsuite/nsswitch/groupmem_dom.exp

   1 #
   2 # @(#) Test whether members of domain groups all have domain names
   3 #
   4
   5 load_lib util-defs.exp
   6
   7 set group_list [split [util_start "getent group" ""] "\n"]
   8 set failed 0
   9
  10 foreach { group } $group_list {
  11     set group_entry [split $group ":"]
  12
  13     set group_name [lindex $group_entry 0]
  14     set group_members [split [lindex $group_entry 3] ","]
  15
  16     if { [regexp {^[^/]+/} $group_name] } {
  17
  18         verbose "group $group_name has members $group_members"
  19
  20         foreach { user } $group_members {
  21             if { ![regexp {^[^/]+/} $user] } {
  22                 fail "group $group has non-domain user $user"
  23                 set failed 1
  24             }
  25         }
  26     } else {
  27         verbose "ignoring non-domain group $group_name"
  28     }
  29 }
  30
  31 if { !$failed } {
  32     pass "domain groups contain only domain members"
  33 }