File 3411-eldap-New-test-case.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 3411-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

Places

File 3411-eldap-New-test-case.patch of Package erlang

Places