File 2044-Skip-inflateGetDictionary-test-case-if-uns... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 2044-Skip-inflateGetDictionary-test-case-if-unsupported.patch of Package erlang (Revision c589bc075ed79a918315277f2ca40bc8)

Currently displaying revision c589bc075ed79a918315277f2ca40bc8 , Show latest

From dc322963be1e20c153413fe964a59cffe21971b9 Mon Sep 17 00:00:00 2001
From: Guilherme Andrade <g@gandrade.net>
Date: Sat, 20 Aug 2016 23:26:07 +0100
Subject: [PATCH 4/5] Skip inflateGetDictionary test case if unsupported

---
 lib/kernel/test/zlib_SUITE.erl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/kernel/test/zlib_SUITE.erl b/lib/kernel/test/zlib_SUITE.erl
index 4720a7f..4b67fce 100644
--- a/lib/kernel/test/zlib_SUITE.erl
+++ b/lib/kernel/test/zlib_SUITE.erl
@@ -290,6 +290,18 @@ api_inflateSetDictionary(Config) when is_list(Config) ->
 
 %% Test inflateGetDictionary.
 api_inflateGetDictionary(Config) when is_list(Config) ->
+    Z1 = zlib:open(),
+    IsOperationSupported =
+        case catch zlib:inflateGetDictionary(Z1) of
+            {'EXIT',{einval,_}} -> true;
+            {'EXIT',{enotsup,_}} -> false
+        end,
+    _ = zlib:close(Z1),
+    api_inflateGetDictionary_if_supported(IsOperationSupported).
+
+api_inflateGetDictionary_if_supported(false) ->
+    {skip, "inflateGetDictionary/1 unsupported in current setup"};
+api_inflateGetDictionary_if_supported(true) ->
     % Compress payload using custom dictionary
     Z1 = zlib:open(),
     ?m(ok, zlib:deflateInit(Z1)),
-- 
2.9.3

Places

File 2044-Skip-inflateGetDictionary-test-case-if-unsupported.patch of Package erlang (Revision c589bc075ed79a918315277f2ca40bc8)

Places