rf: 测试代码修改

src/testCase/DsTest/utCerlSetsDs.erl

@@ -1,55 +0,0 @@
--module(utCerlSetsDs).
--compile([nowarn_unused_function, nowarn_unused_vars, nowarn_export_all]).
-
--export([start/2]).
-
-start(Num, Pid) ->
-   Ds = init(Num),
-   Time1 = erlang:monotonic_time(),
-   NewDsI = insert(Num, Ds),
-   Time2 = erlang:monotonic_time(),
-   NewDsR = read(Num, NewDsI),
-   Time3 = erlang:monotonic_time(),
-   NewDsU = update(Num, NewDsR),
-   Time4 = erlang:monotonic_time(),
-   NewDsF = for(Num, NewDsU),
-   Time5 = erlang:monotonic_time(),
-   delete(Num, NewDsF),
-   Time6 = erlang:monotonic_time(),
-   erlang:send(Pid, {over, self(), Time2 - Time1, Time3 - Time2, not_support, Time5 - Time4, Time6 - Time5}),
-   exit(normal).
-
-init(_Num) ->
-   cerl_sets:new().
-
-insert(0, Ds) ->
-   Ds;
-insert(Num, Ds) ->
-   Key = utTestDs:makeK(Num),
-   NewDs = cerl_sets:add_element(Key, Ds),
-   insert(Num - 1, NewDs).
-
-read(0, Ds) ->
-   Ds;
-read(Num, Ds) ->
-   Key = utTestDs:makeK(Num),
-   Value = cerl_sets:is_element(Key, Ds),
-   read(Num - 1, Ds).
-
-update(Num, Ds) ->
-   Ds.
-
-for(Num, Ds) ->
-   Fun =
-      fun(Value, Acc) ->
-         Value
-      end,
-   cerl_sets:fold(Fun, [], Ds),
-   Ds.
-
-delete(0, Ds) ->
-   ok;
-delete(Num, Ds) ->
-   Key = utTestDs:makeK(Num),
-   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, utEtsSetDs, utTupleDs, utMapsDs, utSetsDs, utCerlSetsDs]).
+-define(DsList, [utPdDs, utArrayDs, utEtsSetDs, utTupleDs, utMapsDs, utSetsDs]).
 
 -define(Cnt, 12).
 

src/testCase/DsTestSimple/utSCerlSetsDs.erl

@@ -1,52 +0,0 @@
--module(utSCerlSetsDs).
--compile([nowarn_unused_function, nowarn_unused_vars, nowarn_export_all]).
-
--export([start/2]).
-
-start(Num, Pid) ->
-   Ds = init(Num),
-   Time1 = erlang:monotonic_time(),
-   NewDsI = insert(Num, Ds),
-   Time2 = erlang:monotonic_time(),
-   NewDsR = read(Num, NewDsI),
-   Time3 = erlang:monotonic_time(),
-   NewDsU = update(Num, NewDsR),
-   Time4 = erlang:monotonic_time(),
-   NewDsF = for(Num, NewDsU),
-   Time5 = erlang:monotonic_time(),
-   delete(Num, NewDsF),
-   Time6 = erlang:monotonic_time(),
-   erlang:send(Pid, {over, self(), Time2 - Time1, Time3 - Time2, not_support, Time5 - Time4, Time6 - Time5}),
-   exit(normal).
-
-init(_Num) ->
-   cerl_sets:new().
-
-insert(0, Ds) ->
-   Ds;
-insert(Num, Ds) ->
-   NewDs = cerl_sets:add_element(Num, Ds),
-   insert(Num - 1, NewDs).
-
-read(0, Ds) ->
-   Ds;
-read(Num, Ds) ->
-   Value = cerl_sets:is_element(Num, Ds),
-   read(Num - 1, Ds).
-
-update(Num, Ds) ->
-   Ds.
-
-for(Num, Ds) ->
-   Fun =
-      fun(Value, Acc) ->
-         Value
-      end,
-   cerl_sets:fold(Fun, [], Ds),
-   Ds.
-
-delete(0, Ds) ->
-   ok;
-delete(Num, Ds) ->
-   NewDs = cerl_sets:del_element(Num, Ds),
-   delete(Num - 1, NewDs).

src/testCase/DsTestSimple/utSTestDs.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, [utSPdDs, utSTupleDs, utSMapsDs, utSArrayDs, utSEtsSetDs, utSSetsDs, utSCerlSetsDs]).
+-define(DsList, [utSPdDs, utSTupleDs, utSMapsDs, utSArrayDs, utSEtsSetDs, utSSetsDs]).
 
 -define(Cnt, 12).