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