mirror of
https://github.com/samba-team/samba.git
synced 2025-01-15 23:24:37 +03:00
29 lines
499 B
Plaintext
29 lines
499 B
Plaintext
#
|
|
# @(#) Test domain groups resolve using getgrnam()
|
|
#
|
|
|
|
load_lib "util-defs.exp"
|
|
load_lib "compile.exp"
|
|
|
|
# Compile getgrnam.c
|
|
|
|
simple_compile "getgrnam"
|
|
|
|
# Test domain groups
|
|
|
|
set group_list [split [util_start "bin/wbinfo" "-g"] "\n"]
|
|
|
|
verbose $group_list
|
|
|
|
foreach {group} $group_list {
|
|
set output [util_start "$srcdir/$subdir/getgrnam" "\"$group\"" ""]
|
|
|
|
verbose $output
|
|
|
|
if {[regexp "PASS:" $output]} {
|
|
pass "getgrnam $group"
|
|
} else {
|
|
fail "getgrnam $group"
|
|
}
|
|
}
|