。。。

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).

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).
 

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.
+
+