diff options
author | Tim Potter <tpot@samba.org> | 2001-08-05 11:19:34 +0000 |
---|---|---|
committer | Tim Potter <tpot@samba.org> | 2001-08-05 11:19:34 +0000 |
commit | 99071c45d05231e5683b37823bcca90542f4e332 (patch) | |
tree | c5e5453b833de1cb63b108d6e2b1ef714bb5cc7f /testsuite | |
parent | b29a549cdd85d42a1697041ab04f0ae4eddd23ca (diff) | |
download | samba-99071c45d05231e5683b37823bcca90542f4e332.tar.gz samba-99071c45d05231e5683b37823bcca90542f4e332.tar.xz samba-99071c45d05231e5683b37823bcca90542f4e332.zip |
Another winbind test - fill in later.
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/nsswitch/domusers.exp | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/testsuite/nsswitch/domusers.exp b/testsuite/nsswitch/domusers.exp new file mode 100644 index 00000000000..3b291ab398b --- /dev/null +++ b/testsuite/nsswitch/domusers.exp @@ -0,0 +1,38 @@ +# +# @(#) Test that all users are members of the Domain Users group. +# +# Note that this isn't necessarily true all the time but you have to +# explicitly move people out of that group so it should be OK for te +# + +load_lib util-defs.exp +load_lib $srcdir/lib/nsswitch-config.exp + +# Get list of users and stick usernames in a hash + +set user_list [util_start "getent" "passwd" ""] + +foreach { user } [split $user_list "\n"] { + set user_elts [split $user ":"] + set users([lindex $user_elts 0]) 1 +} + +# Get list of groups + +set group_list [util_start "getent" "group" ""] + +foreach { group } [split $group_list "\n"] { + set group_elts [split $group ":"] + + # Look for domain users group + + if { ![regexp "Domain Users" [lindex $group_elts 0]] } { + continue + } + + # Check each member of group was found in getent passwd + + foreach { mem } [split [lindex $group_elts 3] ","] { + set mems($mem) 1 + } +} |