[PATCH 3/3] wldap32/tests: Add some tests for LDAP authentication to a Kerberos DC.

[Dmitry Timoshkov]

From: Dmitry Timoshkov

Signed-off-by: Dmitry Timoshkov 
---
 dlls/wldap32/tests/Makefile.in |  2 +-
 dlls/wldap32/tests/parse.c     | 56 ++++++++++++++++++++++++++++++++++
 2 files changed, 57 insertions(+), 1 deletion(-)

diff --git a/dlls/wldap32/tests/Makefile.in b/dlls/wldap32/tests/Makefile.in
index b387ec95a71..10488eedbe3 100644
--- a/dlls/wldap32/tests/Makefile.in
+++ b/dlls/wldap32/tests/Makefile.in
@@ -1,5 +1,5 @@
 TESTDLL   = wldap32.dll
-IMPORTS   = crypt32 wldap32
+IMPORTS   = crypt32 wldap32 netapi32

SOURCES = \
    ber.c \
diff --git a/dlls/wldap32/tests/parse.c b/dlls/wldap32/tests/parse.c
index faf49622586..760bf0ce703 100644
--- a/dlls/wldap32/tests/parse.c
+++ b/dlls/wldap32/tests/parse.c
@@ -25,6 +25,9 @@
 #include <winbase.h>
 #include <winldap.h>
 #include <winber.h>
+#include <dsgetdc.h>
+#include <lmcons.h>
+#include <lmapibuf.h>

#include "wine/test.h"

@@ -671,10 +674,63 @@ static void test_ldap_host_name(void)
     ldap_unbind( ld );
 }

+static void test_ldap_search_dc(void)
+{
+    DOMAIN_CONTROLLER_INFOW *info;
+    char *attrs[] = { (char *)"defaultNamingContext", NULL };
+    LDAP *ld;
+    int version;
+    LDAPMessage *res, *entry;
+    char **values;
+    ULONG ret;
+
+    ret = DsGetDcNameW( NULL, NULL, NULL, NULL, DS_RETURN_DNS_NAME, &info );
+    if (ret != ERROR_SUCCESS)
+    {
+        skip( "Computer is not part of an Active Directory Domain\n" );
+        return;
+    }
+    trace( "Computer is part of domain %s\n", wine_dbgstr_w(info->DomainName) );
+    NetApiBufferFree( info );
+
+    ld = ldap_initA( NULL, 389 );
+    ok( ld != NULL, "ldap_init failed\n" );
+
+    version = LDAP_VERSION3;
+    ret = ldap_set_optionW( ld, LDAP_OPT_PROTOCOL_VERSION, &version );
+    if (ret == LDAP_SERVER_DOWN || ret == LDAP_UNAVAILABLE)
+    {
+        skip( "test server can't be reached\n" );
+        ldap_unbind( ld );
+        return;
+    }
+
+    ret = ldap_search_sA( ld, NULL, LDAP_SCOPE_BASE, (char *)"(objectclass=*)", attrs, FALSE, &res );
+    ok( !ret, "ldap_search_s error %#lx\n", ret );
+    if (ret)
+    {
+        ldap_unbind( ld );
+        return;
+    }
+
+    entry = ldap_first_entry( ld, res );
+    ok( entry != NULL, "expected entry != NULL\n" );
+
+    values = ldap_get_valuesA( ld, entry, attrs[0] );
+    ok( entry != NULL, "expected values != NULL\n" );
+    trace( "%s[0]: %s\n", attrs[0], values[0] );
+
+    ldap_value_freeA( values );
+    ldap_msgfree( res );
+
+    ldap_unbind( ld );
+}
+
 START_TEST (parse)
 {
     LDAP *ld;

+    test_ldap_search_dc();
     test_ldap_host_name();
     test_ldap_paged_search();
     test_ldap_server_control();