Allow lookup of users with spaces in their name.
[jra/samba/.git] / testsuite / nsswitch / finger.exp
1 #
2 # @(#) Test default domain users resolve using the finger command
3 #
4
5 load_lib util-defs.exp
6
7 set output [util_start "bin/wbinfo" "-u"]
8 if { [regexp "Error" $output] } {
9     fail "error running wbinfo"
10     return
11 }
12
13 set user_list [split $output "\n"]
14
15 # Look up all users using finger -m.  This should test getpwnam()
16
17 foreach { 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
30 foreach { 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 }