ab3b28f58fc46395d0208895ad995dd1883f380b
[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.  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 verbose "testing finger -m"
29
30 # Run finger without the -m to also test set/get/endpwent()
31
32 foreach { user } $user_list {
33     set output [util_start "finger" "-m $user"]
34     verbose $output
35     
36     if { [regexp "no such user" $output] } {
37         fail "finger $user"
38     } else {
39         pass "finger $user"
40     }
41 }