From fe87c100b821aab7d447320997f7417a2cdc2cd0 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Wed, 15 May 2019 15:45:58 +0200
Subject: [esock|test] Add ttest case(s) (sso/csf/s,m,l) work for local
 (stream)

Add ttest test case(s) for Unix Domain (stream) socket:

    Server:       socket with active = once
    Client:       socket with active = false
    Message Size: small, medium and large

OTP-15822
---
 erts/emulator/test/socket_SUITE.erl | 80 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 79 insertions(+), 1 deletion(-)

(limited to 'erts/emulator')

diff --git a/erts/emulator/test/socket_SUITE.erl b/erts/emulator/test/socket_SUITE.erl
index 63df6cd9c9..456e4fed56 100644
--- a/erts/emulator/test/socket_SUITE.erl
+++ b/erts/emulator/test/socket_SUITE.erl
@@ -408,10 +408,13 @@
          %% Client: transport = socket(tcp)
          ttest_ssocko_csockf_small_tcp4/1,
          ttest_ssocko_csockf_small_tcp6/1,
+         ttest_ssocko_csockf_small_tcpL/1,
          ttest_ssocko_csockf_medium_tcp4/1,
+         ttest_ssocko_csockf_medium_tcpL/1,
          ttest_ssocko_csockf_medium_tcp6/1,
          ttest_ssocko_csockf_large_tcp4/1,
          ttest_ssocko_csockf_large_tcp6/1,
+         ttest_ssocko_csockf_large_tcpL/1,
 
          ttest_ssocko_csocko_small_tcp4/1,
          ttest_ssocko_csocko_small_tcp6/1,
@@ -1326,12 +1329,15 @@ ttest_ssocko_csockf_cases() ->
     [
      ttest_ssocko_csockf_small_tcp4,
      ttest_ssocko_csockf_small_tcp6,
+     ttest_ssocko_csockf_small_tcpL,
 
      ttest_ssocko_csockf_medium_tcp4,
      ttest_ssocko_csockf_medium_tcp6,
+     ttest_ssocko_csockf_medium_tcpL,
 
      ttest_ssocko_csockf_large_tcp4,
-     ttest_ssocko_csockf_large_tcp6
+     ttest_ssocko_csockf_large_tcp6,
+     ttest_ssocko_csockf_large_tcpL
     ].
 
 %% Server: transport = socket(tcp), active = once
@@ -17385,6 +17391,30 @@ ttest_ssocko_csockf_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 = once
+%% Client:       Transport = socket(tcp), Active = false
+%% Message Size: small (=1)
+%% Domain:       local
+%% 
+
+ttest_ssocko_csockf_small_tcpL(suite) ->
+    [];
+ttest_ssocko_csockf_small_tcpL(doc) ->
+    [];
+ttest_ssocko_csockf_small_tcpL(Config) when is_list(Config) ->
+    Runtime = which_ttest_runtime(Config),
+    ttest_tcp(ttest_ssocko_csockf_small_tcpL,
+              Runtime,
+              local,
+              sock, once,
+              sock, false,
+              1, 200).
+
+
+
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% This test case uses the time test (ttest) utility to implement a 
 %% ping-pong like test case.
@@ -17433,6 +17463,30 @@ ttest_ssocko_csockf_medium_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 = once
+%% Client:       Transport = socket(tcp), Active = false
+%% Message Size: medium (=2)
+%% Domain:       local
+%% 
+
+ttest_ssocko_csockf_medium_tcpL(suite) ->
+    [];
+ttest_ssocko_csockf_medium_tcpL(doc) ->
+    [];
+ttest_ssocko_csockf_medium_tcpL(Config) when is_list(Config) ->
+    Runtime = which_ttest_runtime(Config),
+    ttest_tcp(ttest_ssocko_csockf_medium_tcpL,
+              Runtime,
+              local,
+              sock, once,
+              sock, false,
+              2, 20).
+
+
+
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% This test case uses the time test (ttest) utility to implement a 
 %% ping-pong like test case.
@@ -17481,6 +17535,30 @@ ttest_ssocko_csockf_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 = once
+%% Client:       Transport = socket(tcp), Active = false
+%% Message Size: large (=3)
+%% Domain:       local
+%% 
+
+ttest_ssocko_csockf_large_tcpL(suite) ->
+    [];
+ttest_ssocko_csockf_large_tcpL(doc) ->
+    [];
+ttest_ssocko_csockf_large_tcpL(Config) when is_list(Config) ->
+    Runtime = which_ttest_runtime(Config),
+    ttest_tcp(ttest_ssocko_csockf_large_tcpL,
+              Runtime,
+              local,
+              sock, once,
+              sock, false,
+              3, 2).
+
+
+
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% This test case uses the time test (ttest) utility to implement a 
 %% ping-pong like test case.
-- 
cgit v1.2.3