新增测试

src/testCase/utTpfm.erl

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