LogoopenSUSE Build Service > Projects
Sign Up | Log In

View File 0670-distribution_SUITE-Remove-irrelevant-test-atom_round.patch of Package erlang (Project home:Ledest:erlang:20)

From 9f3bb884c8a1fb0d42f4f10a0bcea9b04d105657 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Wed, 10 Apr 2019 16:31:34 +0200
Subject: [PATCH] distribution_SUITE: Remove irrelevant test
 atom_roundtrip_r16b

Communication with OTP R16b has not been supported for a while.
---
 erts/emulator/test/distribution_SUITE.erl | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/erts/emulator/test/distribution_SUITE.erl b/erts/emulator/test/distribution_SUITE.erl
index 58194cf167..6e31c73e10 100644
--- a/erts/emulator/test/distribution_SUITE.erl
+++ b/erts/emulator/test/distribution_SUITE.erl
@@ -19,7 +19,6 @@
 %%
 
 -module(distribution_SUITE).
--compile(r16).
 
 -define(VERSION_MAGIC,       131).
 
@@ -53,7 +52,6 @@
          dist_parallel_send/1,
          atom_roundtrip/1,
          unicode_atom_roundtrip/1,
-         atom_roundtrip_r16b/1,
          contended_atom_cache_entry/1,
          contended_unicode_atom_cache_entry/1,
          bad_dist_structure/1,
@@ -88,7 +86,6 @@ all() ->
      ref_port_roundtrip, nil_roundtrip, stop_dist,
      {group, trap_bif}, {group, dist_auto_connect},
      dist_parallel_send, atom_roundtrip, unicode_atom_roundtrip,
-     atom_roundtrip_r16b,
      contended_atom_cache_entry, contended_unicode_atom_cache_entry,
      bad_dist_structure, {group, bad_dist_ext},
      start_epmd_false, epmd_module].
@@ -1107,23 +1104,6 @@ atom_roundtrip(Config) when is_list(Config) ->
     stop_node(Node),
     ok.
 
-atom_roundtrip_r16b(Config) when is_list(Config) ->
-    case test_server:is_release_available("r16b") of
-        true ->
-            ct:timetrap({minutes, 6}),
-            AtomData = unicode_atom_data(),
-            verify_atom_data(AtomData),
-            case start_node(Config, [], "r16b") of
-                {ok, Node} ->
-                    do_atom_roundtrip(Node, AtomData),
-                    stop_node(Node);
-                {error, timeout} ->
-                    {skip,"Unable to start OTP R16B release"}
-            end;
-        false ->
-            {skip,"No OTP R16B available"}
-    end.
-
 unicode_atom_roundtrip(Config) when is_list(Config) ->
     AtomData = unicode_atom_data(),
     verify_atom_data(AtomData),
-- 
2.16.4