File 3951-eldap-New-test-case.patch of Package erlang
From f8db51ed08fb0f85d22794d7bffa96b37ec229c4 Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Thu, 28 Jan 2021 19:08:54 +0100
Subject: [PATCH] eldap: New test case
---
lib/eldap/test/eldap_basic_SUITE.erl | 13 +++++++++++++
1 file changed, 13 insertions(+)
diff --git a/lib/eldap/test/eldap_basic_SUITE.erl b/lib/eldap/test/eldap_basic_SUITE.erl
index a337fe1c21..6d6f54f712 100644
--- a/lib/eldap/test/eldap_basic_SUITE.erl
+++ b/lib/eldap/test/eldap_basic_SUITE.erl
@@ -49,6 +49,7 @@
search_filter_and/1,
search_filter_and_not/1,
search_filter_equalityMatch/1,
+ search_filter_equalityMatch_objectClass_exists/1,
search_filter_final/1,
search_filter_initial/1,
search_filter_or/1,
@@ -118,6 +119,7 @@ groups() ->
more_add,
add_referral,
search_filter_equalityMatch,
+ search_filter_equalityMatch_objectClass_exists,
search_filter_substring_any,
search_filter_initial,
search_filter_final,
@@ -568,6 +570,17 @@ search_filter_equalityMatch(Config) ->
filter = eldap:equalityMatch("sn", "Jonsson"),
scope=eldap:singleLevel()}).
+%%%----------------------------------------------------------------
+search_filter_equalityMatch_objectClass_exists(Config) ->
+ BasePath = proplists:get_value(eldap_path, Config),
+ ExpectedDN = "cn=Jonas Jonsson," ++ BasePath,
+ {ok, #eldap_search_result{entries=[#eldap_entry{object_name=ExpectedDN}]}} =
+ eldap:search(proplists:get_value(handle, Config),
+ #eldap_search{base = BasePath,
+ filter = eldap:'and'([eldap:equalityMatch("sn", "Jonsson"),
+ eldap:present("objectclass")]),
+ scope=eldap:singleLevel()}).
+
%%%----------------------------------------------------------------
search_filter_substring_any(Config) ->
BasePath = proplists:get_value(eldap_path, Config),
--
2.26.2
