From 75ebfc6f7a7692d772b729b2d83038a9054b4f90 Mon Sep 17 00:00:00 2001
From: Tim Potter <tpot@samba.org>
Date: Fri, 12 May 2000 06:55:09 +0000
Subject: Merge from TNG. (This used to be commit
 af5ded9f17addb4bc89ecb762b9b99d2f99463ab)

---
 testsuite/nsswitch/getpwnam.exp | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 testsuite/nsswitch/getpwnam.exp

(limited to 'testsuite/nsswitch/getpwnam.exp')

diff --git a/testsuite/nsswitch/getpwnam.exp b/testsuite/nsswitch/getpwnam.exp
new file mode 100644
index 0000000000..49f61f1a5c
--- /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"
+    }
+}
-- 
cgit