From dcc39ea43984fe9f9c683e48423794793a923e28 Mon Sep 17 00:00:00 2001 From: Tim Potter Date: Wed, 9 May 2001 04:59:49 +0000 Subject: Cleaned up bitrot in nsswitch testsuite. Merged tests across from TNG branch. (This used to be commit acef477383e5739292e764c17cef87822a09f13b) --- testsuite/nsswitch/groupmem_dom.exp | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 testsuite/nsswitch/groupmem_dom.exp (limited to 'testsuite/nsswitch/groupmem_dom.exp') diff --git a/testsuite/nsswitch/groupmem_dom.exp b/testsuite/nsswitch/groupmem_dom.exp new file mode 100644 index 0000000000..3ba34bb810 --- /dev/null +++ b/testsuite/nsswitch/groupmem_dom.exp @@ -0,0 +1,33 @@ +# +# @(#) Test whether members of domain groups all have domain names +# + +load_lib util-defs.exp + +set group_list [split [util_start "getent group" ""] "\n"] +set failed 0 + +foreach { group } $group_list { + set group_entry [split $group ":"] + + set group_name [lindex $group_entry 0] + set group_members [split [lindex $group_entry 3] ","] + + if { [regexp {^[^/]+/} $group_name] } { + + verbose "group $group_name has members $group_members" + + foreach { user } $group_members { + if { ![regexp {^[^/]+/} $user] } { + fail "group $group has non-domain user $user" + set failed 1 + } + } + } else { + verbose "ignoring non-domain group $group_name" + } +} + +if { !$failed } { + pass "domain groups contain only domain members" +} -- cgit