testsuite/nsswitch/getgrnam.exp

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