-module(ping3).

-compile([export_all, nowarn_export_all]).

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

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

send(N) ->
   {ok, Pid} = pong3:start(),
   StartTime = erlang:system_time(nanosecond),
   doSend(N, Pid, StartTime).

doSend(0, Pid, StartTime) ->
   % Ret = gen_apu:call(Pid, ping),
   Ret = 1,
   EndTime = erlang:system_time(nanosecond),
   exit(Pid, kill),
   io:format("send2 over use time: ~p ~p ns~n", [Ret, EndTime - StartTime]);
doSend(N, Pid, StartTime) ->
   gen_apu:send(Pid, mPing),
   doSend(N - 1, Pid, StartTime).

cast(N) ->
   {ok, Pid} = pong3:start(),
   StartTime = erlang:system_time(nanosecond),
   doCast(N, Pid, StartTime).

doCast(0, Pid, StartTime) ->
   %Ret = gen_apu:call(Pid, ping),
   Ret = 1,
   EndTime = erlang:system_time(nanosecond),
   exit(Pid, kill),
   io:format("cast3 over use time: ~p ~p ns~n", [Ret, EndTime - StartTime]);
doCast(N, Pid, StartTime) ->
   gen_apu:cast(Pid, mPing),
   doCast(N - 1, Pid, StartTime).