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 }