testsuite/nsswitch/getpwnam.exp

   1 #
   2 # @(#) Test domain users resolve using getpwnam()
   3 #
   4
   5 load_lib util-defs.exp
   6 load_lib "compile.exp"
   7
   8 # Compile getpwnam.c
   9
  10 simple_compile "getpwnam"
  11
  12 # Test domain users
  13
  14 set user_list [split [util_start "bin/wbinfo" "-u"] "\n"]
  15
  16 verbose $user_list
  17
  18 foreach { user } $user_list {
  19     set output [util_start "$srcdir/$subdir/getpwnam" "\"$user\"" ""]
  20
  21     verbose $output
  22
  23     if {[regexp "PASS:" $output]} {
  24         pass "getpwnam $user"
  25     } else {
  26         fail "getpwnam $user"
  27     }
  28 }