testsuite/nsswitch/getpwnam.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

#
# @(#) Test default domain users resolve using getpwnam()
#

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

# Compile getpwnam.c

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

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

# Test domain users

foreach {user} $domain_users {
    set output [util_start "$srcdir/$subdir/getpwnam" "\"$user\"" ""]
    if {[regexp "PASS:" $output]} {
        pass "getpwnam $user"
    } else {
        fail "getpwnam $user"
    }
}