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 }