import HEAD into svn+ssh://svn.samba.org/home/svn/samba/trunk
[metze/old/v3-2-winbind-ndr.git] / 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 }