File 0783-ssl-Add-testcase-debug-info.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 0783-ssl-Add-testcase-debug-info.patch of Package erlang (Revision 78b9aa98aaa88a2d99f195e64ab53dd7)

Currently displaying revision 78b9aa98aaa88a2d99f195e64ab53dd7 , Show latest

From 2e7ddad8b57d8e96153e9858b5dd9a016abb0317 Mon Sep 17 00:00:00 2001
From: Dan Gudmundsson <dgud@erlang.org>
Date: Thu, 15 Jun 2023 10:29:06 +0200
Subject: [PATCH 3/5] ssl: Add testcase debug info

---
 lib/ssl/test/ssl_pem_cache_SUITE.erl | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/lib/ssl/test/ssl_pem_cache_SUITE.erl b/lib/ssl/test/ssl_pem_cache_SUITE.erl
index 0c26388e8c..196f4c1d14 100644
--- a/lib/ssl/test/ssl_pem_cache_SUITE.erl
+++ b/lib/ssl/test/ssl_pem_cache_SUITE.erl
@@ -778,10 +778,18 @@ pem_periodical_cleanup(Config, FileIds,
         try
             Cleaned = get_table_sizes(),
             [{pem_cache, PemCacheData1}, _, _, _] = get_tables(),
-            IsSame = PemCacheData1 == PemCacheData0,
             check_tables([{pem_cache, PemCacheData1}, {cert, CertData0}, {ca_ref_cnt, CaRefCntData0},
                           {ca_file_ref, CaFileRefData0}]),
-            [true = lists:member(Row, PemCacheData0) || Row <- PemCacheData1],
+
+            [] = [{missing, Row} || Row <- PemCacheData1,
+                                    not lists:member(Row, PemCacheData0)],
+            case IsSame of
+                true ->
+                    [] = PemCacheData0 -- PemCacheData1;
+                _ ->
+                    ok
+            end,
+
             %% restore original mtime attributes
             [ok = file:write_file_info(C, F#file_info{mtime = OT}) ||
                 {C, F, OT} <- Memory],
@@ -789,8 +797,8 @@ pem_periodical_cleanup(Config, FileIds,
             [ssl_test_lib:close(A) || A <- [Server, Client]],
             Disconnected = get_table_sizes(),
             ok
-        catch _:Reason ->
-                Reason
+        catch _:Reason:ST ->
+                {Reason,ST}
         end,
     case Result of
         ok ->
-- 
2.35.3

Places

File 0783-ssl-Add-testcase-debug-info.patch of Package erlang (Revision 78b9aa98aaa88a2d99f195e64ab53dd7)

Places