#
load_lib util-defs.exp
-load_lib "$srcdir/config/env.exp"
-load_lib "$srcdir/config/default-nt-names.exp"
# Compile getpwuid.c
set output [util_start "getent" "passwd" ""]
set got_entries 0
+verbose $output
+
foreach {line} [split $output "\n"] {
# Process user
set pwd_entry [split $line ":"]
set user [lindex $pwd_entry 0]
- if {[regexp "^($domain)/" $user]} {
+ if {[regexp {^[^/]+/} $user]} {
set got_entries 1
# Test lookup of uid succeeds
set output [util_start "$srcdir/$subdir/getpwuid" "$uid" ""]
+
+ verbose $output
+
+ set test_desc "getpwuid $uid ($user)"
+
if {[regexp "PASS:" $output]} {
- pass "getpwuid $uid ($user)"
+ pass $test_desc
} else {
- fail "getpwuid $uid ($user)"
+ fail $test_desc
}
}
}