1# 2# @(#) Test default domain users resolve using the finger command 3# 4 5load_lib util-defs.exp 6 7set output [util_start "bin/wbinfo" "-u"] 8if { [regexp "Error" $output] } { 9 fail "error running wbinfo" 10 return 11} 12 13set user_list [split $output "\n"] 14 15# Look up all users using finger -m. This should test getpwnam() 16 17foreach { user } $user_list { 18 set output [util_start "finger" "-m \"$user\"" "" "no such user"] 19 verbose $output 20 21 if { [regexp "no such user" $output] } { 22 fail "finger -m $user" 23 } else { 24 pass "finger -m $user" 25 } 26} 27 28# Run finger without the -m to also test set/get/endpwent() 29 30foreach { user } $user_list { 31 set output [util_start "finger" "\"$user\""] 32 verbose $output 33 34 if { [regexp "no such user" $output] } { 35 fail "finger $user" 36 } else { 37 pass "finger $user" 38 } 39} 40