1# 2# @(#) Test handling of long arguments passed to various nss functions 3# 4 5load_lib compile.exp 6load_lib util-defs.exp 7 8# Run tests from C source files 9 10set longarg_tests [list \ 11 { "long arg to getpwnam()" "longarg_getpwnam" } \ 12 { "long arg to getgrnam()" "longarg_getgrnam" } \ 13 ] 14 15foreach { 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} 30