From dc60cb7ea8726dae248a6a49c138d495691f90a9 Mon Sep 17 00:00:00 2001
From: lijie <lijie123>
Date: Fri, 17 Apr 2020 16:36:18 +0800
Subject: [PATCH] =?UTF-8?q?=E3=80=82=E3=80=82=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/testCase/DsTest/utCerlSetsDs.erl | 12 +++---
 src/testCase/DsTest/utTestDs.erl     |  2 +-
 src/testCase/utProMsg.erl            | 62 +++++++++++++++++++++++-----
 3 files changed, 58 insertions(+), 18 deletions(-)

diff --git a/src/testCase/DsTest/utCerlSetsDs.erl b/src/testCase/DsTest/utCerlSetsDs.erl
index e30f1f3..4f88765 100644
--- a/src/testCase/DsTest/utCerlSetsDs.erl
+++ b/src/testCase/DsTest/utCerlSetsDs.erl
@@ -1,4 +1,4 @@
--module(utSetsDs).
+-module(utCerlSetsDs).
 -compile([nowarn_unused_function, nowarn_unused_vars, nowarn_export_all]).
 
 -export([start/2]).
@@ -20,20 +20,20 @@ start(Num, Pid) ->
    exit(normal).
 
 init(_Num) ->
-   sets:new().
+   cerl_sets:new().
 
 insert(0, Ds) ->
    Ds;
 insert(Num, Ds) ->
    Key = utTestDs:makeK(Num),
-   NewDs = sets:add_element(Key, Ds),
+   NewDs = cerl_sets:add_element(Key, Ds),
    insert(Num - 1, NewDs).
 
 read(0, Ds) ->
    Ds;
 read(Num, Ds) ->
    Key = utTestDs:makeK(Num),
-   Value = sets:is_element(Key, Ds),
+   Value = cerl_sets:is_element(Key, Ds),
    read(Num - 1, Ds).
 
 update(Num, Ds) ->
@@ -44,12 +44,12 @@ for(Num, Ds) ->
       fun(Value, Acc) ->
          Value
       end,
-   sets:fold(Fun, [], Ds),
+   cerl_sets:fold(Fun, [], Ds),
    Ds.
 
 delete(0, Ds) ->
    ok;
 delete(Num, Ds) ->
    Key = utTestDs:makeK(Num),
-   NewDs = sets:del_element(Key, Ds),
+   NewDs = cerl_sets:del_element(Key, Ds),
    delete(Num - 1, NewDs).
\ No newline at end of file
diff --git a/src/testCase/DsTest/utTestDs.erl b/src/testCase/DsTest/utTestDs.erl
index 87b7daf..81e6594 100644
--- a/src/testCase/DsTest/utTestDs.erl
+++ b/src/testCase/DsTest/utTestDs.erl
@@ -12,7 +12,7 @@
 -define(V_NUM, [8, 16, 32, 64, 128, 256, 516, 1024, 2048, 4096, 8192, 16384]).
 %-define(DsList, [utPdDs, utArrayDs, utTupleDs, utListsDs, utMapsDs, utEtsSetDs, utEtsOrdDs, utDictDs, utGb_treesDs, utSetsDs, utGb_setsDs, utOrddictDs, utOrdsetsDs, utAtomicsDs, utPTermDs, utArrayDs1, utHashBblDs, utHashBblDs1]).
 %-define(DsList, [utPdDs, utArrayDs, utNifArrayDs, utTupleDs, utListsDs, utMapsDs, utEtsSetDs,  utArrayDs1, utHashBblDs, utHashBblDs1, utKhashDs]).
--define(DsList, [utPdDs, utArrayDs, utNifArrayDs, utNifHashbDs, utKhashDs, utEtsSetDs, utTupleDs, utMapsDs]).
+-define(DsList, [utPdDs, utArrayDs, utNifArrayDs, utNifHashbDs, utKhashDs, utEtsSetDs, utTupleDs, utMapsDs, utSetsDs, utCerlSetsDs]).
 
 -define(Cnt, 12).
 
diff --git a/src/testCase/utProMsg.erl b/src/testCase/utProMsg.erl
index d7213a5..c289497 100644
--- a/src/testCase/utProMsg.erl
+++ b/src/testCase/utProMsg.erl
@@ -1,13 +1,53 @@
-%%%-------------------------------------------------------------------
-%%% @author work51
-%%% @copyright (C) 2020, <COMPANY>
-%%% @doc
-%%%
-%%% @end
-%%% Created : 16. 4月 2020 14:27
-%%%-------------------------------------------------------------------
 -module(utProMsg).
--author("work51").
 
-%% API
--export([]).
+-compile([export_all, nowarn_function, nowarn_unused_vars, nowarn_export_all]).
+
+test(N) ->
+   new(N, self()),
+   receive
+      Msg ->
+         io:format("time end is ~p~n", [erlang:system_time(millisecond)]),
+         Msg
+   end.
+
+new(0, Pid) ->
+   erlang:spawn(?MODULE, pro, [0, Pid]);
+new(N, Pid) ->
+   NewPid = erlang:spawn(?MODULE, pro, [N, Pid]),
+   new(N - 1, NewPid).
+
+pro(0, Pid) ->
+   Term = utGenTerm:genBinary(2000),
+   io:format("time start is ~p~n", [erlang:system_time(millisecond)]),
+   Pid ! Term;
+pro(_N, Pid) ->
+   receive
+      Msg ->
+         Pid ! Msg
+   end.
+
+test1(N) ->
+   new1(N, self()),
+   receive
+      Msg ->
+         io:format("time end is ~p~n", [erlang:system_time(millisecond)]),
+         Msg
+   end.
+
+new1(0, Pid) ->
+   erlang:spawn(?MODULE, pro1, [0, Pid]);
+new1(N, Pid) ->
+   NewPid = erlang:spawn(?MODULE, pro1, [N, Pid]),
+   new1(N - 1, NewPid).
+
+pro1(0, Pid) ->
+   Term = utGenTerm:genString(2000),
+   io:format("time start is ~p~n", [erlang:system_time(millisecond)]),
+   Pid ! Term;
+pro1(_N, Pid) ->
+   receive
+      Msg ->
+         Pid ! Msg
+   end.
+
+