Merge from TNG.

[nivanova/samba-autobuild/.git] / testsuite / nsswitch / getpwnam.exp

diff --git a/testsuite/nsswitch/getpwnam.exp b/testsuite/nsswitch/getpwnam.exp
new file mode 100644 (file)
index 0000000..49f61f1
--- /dev/null
+++ b/testsuite/nsswitch/getpwnam.exp
@@ -0,0 +1,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"
+    }
+}