堆栈测试相关

src/testCase/TraceMod/utStrace1.erl

@@ -0,0 +1,8 @@
+-module(utStrace1).
+
+-export([test/1]).
+
+test(Data) ->
+   utStrace2:test(Data),
+   {ok, Data}.
+

src/testCase/TraceMod/utStrace2.erl

@@ -0,0 +1,8 @@
+-module(utStrace2).
+
+-export([test/1]).
+
+test(Data) ->
+   utStrace3:test(Data),
+   {ok, Data}.
+

src/testCase/TraceMod/utStrace3.erl

@@ -0,0 +1,8 @@
+-module(utStrace3).
+
+-export([test/1]).
+
+test(Data) ->
+   utStrace4:test(Data),
+   {ok, Data}.
+

src/testCase/TraceMod/utStrace4.erl

@@ -0,0 +1,8 @@
+-module(utStrace4).
+
+-export([test/1]).
+
+test(Data) ->
+   utStrace5:test(Data),
+   {ok, Data}.
+

src/testCase/TraceMod/utStrace5.erl

@@ -0,0 +1,9 @@
+-module(utStrace5).
+
+-export([test/1]).
+
+test(Data) ->
+   timer:sleep(30),
+   utStrace1:test(Data),
+   {ok, Data}.
+

src/testCase/utTryCatchCase.erl

@@ -22,6 +22,7 @@ send_msg(Pid, N) ->
 do_t1(N) ->
    case N == 1 orelse N == 90000 of
       true ->
+         io:format("IMY************************* ~p~n ~n", [self()]),
          erlang:garbage_collect(),
          Result = erlang:process_info(self(), [memory, garbage_collection]),
          io:format("IMY************************* ~p~n  ~w ~n", [N, Result]);
@@ -306,4 +307,79 @@ throwRet1(_, _) ->
    end,
    catch throw(ok).
 
+e1(Data) ->
+   utStrace1:test(Data).
+   %io:format("IMY*************e1").
+
+e2(Data) ->
+   e3(Data),
+   io:format("IMY*************e2").
+
+e3(Data) ->
+   e4(Data),
+   io:format("IMY*************e3").
+
+e4(Data) ->
+   e5(Data),
+   io:format("IMY*************e4").
+
+e5(Data) ->
+   e6(Data),
+   io:format("IMY*************e5").
+
+e6(_Data) ->
+   e1(_Data),
+   io:format("IMY*************e6"),
+   eBig(_Data),
+   io:format("IMY*************big6"),
+   {ok, _Data}.
+
+eBig(Data) ->
+   e1(Data).
+
+tryBig1(Data) ->
+   try eBig(Data)
+   catch
+      C:R ->
+         {C, R}
+   end.
+
+tryBig2(Data) ->
+   try eBig(Data)
+   catch
+      C:R:S ->
+         {C, R, S}
+   end.
+
+tryBig3(Data) ->
+   eBig(Data).
+
+whileBig1(Data) ->
+   tryBig1(Data),
+   timer:sleep(20),
+   whileBig1(Data).
+
+whileBig2(Data) ->
+   tryBig2(Data),
+   timer:sleep(20),
+   whileBig2(Data).
+
+whileBig3(Data) ->
+   tryBig3(Data),
+   timer:sleep(20),
+   whileBig3(Data).
+
+whileBig(Fun) ->
+   Data = utGenTerm:genString(1),
+   io:format("IMY************************* ~p~n", [utTermSize:byteSize(Data)]),
+   erlang:spawn(fun() -> ?MODULE:Fun(Data) end).
+
+whileTrace(N) ->
+   Data = utGenTerm:genString(N),
+   io:format("IMY************************* ~p~n", [utTermSize:byteSize(Data)]),
+   P1 = erlang:spawn(fun() -> whileBig1(Data) end),
+   P2 = erlang:spawn(fun() -> whileBig2(Data) end),
+   P3 = erlang:spawn(fun() -> whileBig3(Data) end),
+   io:format("IMY************************* ~p ~p ~p ~p~n", [utTermSize:byteSize(Data), P1, P2, P3]).
+