testsuite/nsswitch/getpwnam.exp

   1 #
   2 # @(#) Test default domain users resolve using getpwnam()
   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 # Compile getpwnam.c
  10
  11 set output [target_compile "$srcdir/$subdir/getpwnam.c" \
  12         "$srcdir/$subdir/getpwnam" executable {additional_flags="-g"}]
  13
  14 if {$output != ""} {
  15     perror "compile getpwnam"
  16     puts $output
  17     return
  18 }
  19
  20 # Test domain users
  21
  22 foreach {user} $domain_users {
  23     set output [util_start "$srcdir/$subdir/getpwnam" "\"$user\"" ""]
  24     if {[regexp "PASS:" $output]} {
  25         pass "getpwnam $user"
  26     } else {
  27         fail "getpwnam $user"
  28     }
  29 }