anchor.diff:              process;
           false ->
               dist_process
  +    end.
  +
  +check_consistent_link_state(A, B) ->
  +    %% Both processes should agree on whether
  +    %% they are linked or not...
  +    LinkType = get_link_type(A, B),
  +    case find_erl_link(A, LinkType, B) of
  +        [] ->
  +            check_unlink(A, B),
  +            io:format("~p and ~p are not linked~n", [A, B]);
  +        _ ->
  +            check_link(A, B),
  +            io:format("~p and ~p are linked~n", [A, B])
       end.
   
   check_link(A, B) when node(A) == node(B) ->
  
positive.code:     lists:foldl(fun (#erl_link{type = T, pid = I} = EL,
                       Acc) when T == Type, I == Item ->
                          [EL|Acc];
                      (_, Acc) ->
                          Acc
                  end,
  
negative.code:          otp_5772_dist_link/1,
           otp_5772_monitor/1,
           otp_5772_dist_monitor/1,
           otp_7946/1,
           otp_17127_local_link_with_simultaneous_link_unlink/1,
           otp_17127_dist_link_with_simultaneous_link_unlink/1,
           otp_17127_local_random/1,
           otp_17127_dist_random/1]).
  
  -export([init_per_testcase/2, end_per_testcase/2]).
  
  