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