新增测试用例

src/measure/utTc.erl

@@ -35,7 +35,7 @@ distribution([], _Aver, Greater, Less) ->
 ts(LoopTime, M, F, A) ->
    {Max, Min, Sum, Aver, Greater, Less} = loopTs(LoopTime, M, F, A, LoopTime, 0, 0, 0, []),
    io:format("=====================~n"),
-   io:format("execute Args:~p~n", A),
+   io:format("execute Args:~p~n", [A]),
    io:format("execute Fun :~p~n", [F]),
    io:format("execute Mod :~p~n", [M]),
    io:format("execute LoopTime:~p~n", [LoopTime]),
@@ -79,7 +79,7 @@ tm(ProcCnt, LoopTime, M, F, A) ->
    loopSpawn(ProcCnt, M, F, A, self(), LoopTime),
    {Max, Min, Sum, Aver, Greater, Less} = collector(ProcCnt, 0, 0, 0, ProcCnt, []),
    io:format("=====================~n"),
-   io:format("execute Args:~p~n", A),
+   io:format("execute Args:~p~n", [A]),
    io:format("execute Fun :~p~n", [F]),
    io:format("execute Mod :~p~n", [M]),
    io:format("execute LoopTime:~p~n", [LoopTime]),

src/testCase/utTpfm.erl

@@ -549,3 +549,13 @@ testHex(0, Mod, Fun, Args, _) ->
 testHex(N, Mod, Fun, Args, _) ->
    testHex(N - 1, Mod, Fun, Args, Mod:Fun(Args)).
 
+tTuple(0, _) ->
+   ok;
+tTuple(N, {tag, OldN}) ->
+   tTuple(N -1, {tag, N}).
+
+tPd(0, _) ->
+   ok;
+tPd(N, _) ->
+   erlang:put(pdVpSize, N),
+   tPd(N -1, erlang:get(pdVpSize)).