testsuite/nsswitch/getgrent_r.exp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

#
# @(#) Test multiple threads can enumerate groups correctly
#

load_lib util-defs.exp
load_lib "$srcdir/config/env.exp"
load_lib "$srcdir/config/default-nt-names.exp"

# Compile getgrent_r.c

set output [target_compile "$srcdir/$subdir/getgrent_r.c" \
        "$srcdir/$subdir/getgrent_r" executable {additional_flags="-g"}]

if {$output != ""} {
    perror "compile getgrent_r"
    puts $output
    return
}

# Clean up output from previous tests

set pid [pid]
file delete [glob -nocomplain "/tmp/getgrent_r-$pid.out-*"]

# Run test proggy

set output [util_start "$srcdir/$subdir/getgrent_r" "$pid" ""]
if {![regexp "^PASS:" $output]} {
    perror "run getgrent_r"
    puts $output
    return -1
}

# Sort and compare output

set output [util_start "$srcdir/$subdir/getent_r.sh" "getgrent $pid" ""]
if {$output == ""} {
    pass "getgrent_r"
} else {
    fail "getgrent_r"
    puts $output
}