Merge from TNG.
[ira/wip.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 load_lib "$srcdir/config/env.exp"
7 load_lib "$srcdir/config/default-nt-names.exp"
8
9 # Look up domain users using finger.  This should test getpwnam()
10
11 foreach { user } $domain_users {
12     if {[util_test "finger" "-m $user" "" "no such user"] < 1} {
13         fail "finger -m $user"
14     } else {
15         pass "finger -m $user"
16     }
17 }
18
19 # Run finger without the -m to also test set/get/endpwent()
20
21 foreach { user } $domain_users {
22     if {[util_test "finger" "$user" "" "no such user"] < 1} {
23         fail "finger $user"
24     } else {
25         pass "finger $user"
26     }
27 }