testsuite/nsswitch/longarg.exp

   1 #
   2 # @(#) Test handling of long arguments passed to various nss functions
   3 #
   4
   5 load_lib compile.exp
   6 load_lib util-defs.exp
   7
   8 # Run tests from C source files
   9
  10 set longarg_tests [list \
  11         { "long arg to getpwnam()" "longarg_getpwnam" } \
  12         { "long arg to getgrnam()" "longarg_getgrnam" } \
  13         ]
  14
  15 foreach { test } $longarg_tests {
  16     set test_desc [lindex $test 0]
  17     set test_file [lindex $test 1]
  18
  19     simple_make "longarg" $test_file
  20     set output [util_start "$srcdir/$subdir/$test_file" ]
  21
  22     if { [regexp "PASS" $output] } {
  23         pass $test_desc
  24         file delete "$srcdir/$subdir/$test_file" "$srcdir/$subdir/$test_file.o"
  25     } else {
  26         fail $test_desc
  27         puts $output
  28     }
  29 }