eGbh/test/ping1.erl

-module(ping1).

-compile([export_all, nowarn_export_all]).

call(N) ->
   {ok, Pid} = pong1:start(),
   StartTime = erlang:system_time(nanosecond),
   doCall(N, Pid, StartTime).

doCall(0, Pid, StartTime) ->
   EndTime = erlang:system_time(nanosecond),
   exit(Pid, kill),
   io:format("call1 over use time: ~p ns~n", [EndTime - StartTime]);
doCall(N, Pid, StartTime) ->
   gen_server:call(Pid, ping),
   doCall(N - 1, Pid, StartTime).