blob: 2c24ae597f522d7a881e939292b8428e15f7a811 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
%%
%% Tests hardcoded dependent type info for process_info/1
%%
-module(process_info_test).
-export([pinfo/1]).
pinfo(P) when node(P) == node() -> % On same node
case process_info(P) of
undefined ->
exit(dead);
Info -> Info
end;
pinfo(P) -> % On different node
case rpc:call(node(P), erlang, process_info, [P]) of
{badrpc, _} ->
exit(badrpc);
undefined -> % This does happen
exit(dead);
Info -> Info
end.
|
