testsuite/nsswitch/getgrent_r.exp

   1 #
   2 # @(#) Test multiple threads can enumerate groups correctly
   3 #
   4
   5 load_lib util-defs.exp
   6 load_lib "$srcdir/lib/nsswitch-config.exp"
   7
   8 # Compile getgrent_r.c
   9
  10 set output [target_compile "$srcdir/$subdir/getgrent_r.c" \
  11         "$srcdir/$subdir/getgrent_r" executable {additional_flags="-g"}]
  12
  13 if {$output != ""} {
  14     perror "compile getgrent_r"
  15     puts $output
  16     return
  17 }
  18
  19 # Clean up output from previous tests
  20
  21 set pid [pid]
  22 file delete [glob -nocomplain "/tmp/getgrent_r-$pid.out-*"]
  23
  24 # Run test proggy
  25
  26 set output [util_start "$srcdir/$subdir/getgrent_r" "$pid" ""]
  27 if {![regexp "^PASS:" $output]} {
  28     perror "run getgrent_r"
  29     puts $output
  30     return -1
  31 }
  32
  33 # Sort and compare output
  34
  35 set output [util_start "$srcdir/$subdir/getent_r.sh" "getgrent $pid" ""]
  36 if {$output == ""} {
  37     pass "getgrent_r"
  38 } else {
  39     fail "getgrent_r"
  40     puts $output
  41 }