1#
2# @(#) Test initgroups function
3#
4
5load_lib util-defs.exp
6load_lib compile.exp
7
8if { [util_start "id -u"] != 0 } {
9    set test_desc "must be userid 0 to run"
10    note $test_desc
11    untested $test_desc
12    return
13}
14
15# Compile test program
16
17simple_compile "initgroups"
18
19# Test domain users
20
21set user_list [split [util_start "bin/wbinfo" "-u"] "\n"]
22
23verbose $user_list
24
25foreach { user } $user_list {
26    set output [util_start "$srcdir/$subdir/initgroups" "\"$user\"" ""]
27
28    verbose $output
29
30    set test_desc "initgroups $user"
31
32    if { [regexp "PASS" $output] } {
33        pass $test_desc
34    } else {
35        fail $test_desc
36    }
37}
38