1 files changed, 79 insertions, 1 deletions

diff --git a/erts/emulator/test/socket_SUITE.erl b/erts/emulator/test/socket_SUITE.erl
index 53248111da..63df6cd9c9 100644
--- a/erts/emulator/test/socket_SUITE.erl
+++ b/erts/emulator/test/socket_SUITE.erl
@@ -373,10 +373,13 @@
 
          ttest_ssockf_csockt_small_tcp4/1,
          ttest_ssockf_csockt_small_tcp6/1,
+         ttest_ssockf_csockt_small_tcpL/1,
          ttest_ssockf_csockt_medium_tcp4/1,
          ttest_ssockf_csockt_medium_tcp6/1,
+         ttest_ssockf_csockt_medium_tcpL/1,
          ttest_ssockf_csockt_large_tcp4/1,
          ttest_ssockf_csockt_large_tcp6/1,
+         ttest_ssockf_csockt_large_tcpL/1,
 
          %% Server: transport = socket(tcp), active = once
          %% Client: transport = gen_tcp
@@ -1239,12 +1242,15 @@ ttest_ssockf_csockt_cases() ->
     [
      ttest_ssockf_csockt_small_tcp4,
      ttest_ssockf_csockt_small_tcp6,
+     ttest_ssockf_csockt_small_tcpL,
 
      ttest_ssockf_csockt_medium_tcp4,
      ttest_ssockf_csockt_medium_tcp6,
+     ttest_ssockf_csockt_medium_tcpL,
 
      ttest_ssockf_csockt_large_tcp4,
-     ttest_ssockf_csockt_large_tcp6
+     ttest_ssockf_csockt_large_tcp6,
+     ttest_ssockf_csockt_large_tcpL
     ].
 
 %% Server: transport = socket(tcp), active = once
@@ -16734,6 +16740,30 @@ ttest_ssockf_csockt_small_tcp6(Config) when is_list(Config) ->
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% This test case uses the time test (ttest) utility to implement a 
 %% ping-pong like test case.
+%% Server:       Transport =  socket(tcp), Active = false
+%% Client:       Transport = socket(tcp), Active = true
+%% Message Size: small (=1)
+%% Domain:       local
+%% 
+
+ttest_ssockf_csockt_small_tcpL(suite) ->
+    [];
+ttest_ssockf_csockt_small_tcpL(doc) ->
+    [];
+ttest_ssockf_csockt_small_tcpL(Config) when is_list(Config) ->
+    Runtime = which_ttest_runtime(Config),
+    ttest_tcp(ttest_ssockf_csocko_small_tcpL,
+              Runtime,
+              local,
+              sock, false,
+              sock, true,
+              1, 200).
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% This test case uses the time test (ttest) utility to implement a 
+%% ping-pong like test case.
 %% Server:       Transport = socket(tcp), Active = false
 %% Client:       Transport = socket(tcp), Active = true
 %% Message Size: medium (=2)
@@ -16784,6 +16814,30 @@ ttest_ssockf_csockt_medium_tcp6(Config) when is_list(Config) ->
 %% ping-pong like test case.
 %% Server:       Transport = socket(tcp), Active = false
 %% Client:       Transport = socket(tcp), Active = true
+%% Message Size: medium (=2)
+%% Domain:       local
+%% 
+
+ttest_ssockf_csockt_medium_tcpL(suite) ->
+    [];
+ttest_ssockf_csockt_medium_tcpL(doc) ->
+    [];
+ttest_ssockf_csockt_medium_tcpL(Config) when is_list(Config) ->
+    Runtime = which_ttest_runtime(Config),
+    ttest_tcp(ttest_ssockf_csockt_medium_tcpL,
+              Runtime,
+              local,
+              sock, false,
+              sock, true,
+              2, 20).
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% This test case uses the time test (ttest) utility to implement a 
+%% ping-pong like test case.
+%% Server:       Transport = socket(tcp), Active = false
+%% Client:       Transport = socket(tcp), Active = true
 %% Message Size: large (=3)
 %% Domain:       inet
 %%
@@ -16830,6 +16884,30 @@ ttest_ssockf_csockt_large_tcp6(Config) when is_list(Config) ->
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% This test case uses the time test (ttest) utility to implement a 
 %% ping-pong like test case.
+%% Server:       Transport = socket(tcp), Active = false
+%% Client:       Transport = socket(tcp), Active = true
+%% Message Size: large (=3)
+%% Domain:       local
+%% 
+
+ttest_ssockf_csockt_large_tcpL(suite) ->
+    [];
+ttest_ssockf_csockt_large_tcpL(doc) ->
+    [];
+ttest_ssockf_csockt_large_tcpL(Config) when is_list(Config) ->
+    Runtime = which_ttest_runtime(Config),
+    ttest_tcp(ttest_ssockf_csockt_large_tcpL,
+              Runtime,
+              local,
+              sock, false,
+              sock, true,
+              3, 2).
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% This test case uses the time test (ttest) utility to implement a 
+%% ping-pong like test case.
 %% Server:       Transport = socket(tcp), Active = once
 %% Client:       Transport = gen_tcp, Active = false
 %% Message Size: small (=1)