anchor.diff:  %% testcases
   -export([start/1,
            connect/1,
  +         send_dpr/1,
            remove_transport/1,
            stop_service/1,
            check/1,
  
positive.code:          {'Host-IP-Address', [?ADDR]},
           {'Vendor-Id', hd(Host)},  %% match this in disconnect/5
           {'Product-Name', "OTP/diameter"},
           {'Acct-Application-Id', [?APP_ID]},
           {restrict_connections, false},
           {application, [{dictionary, ?DICT_COMMON},
                          {module, #diameter_callback{_ = false}}]}]).
  
  %% Disconnect reasons that diameter passes as the first argument of a
  
negative.code:     [{timetrap, {seconds, 60}}].
  
  all() ->
      [start, send_dpr, stop | [{group, R} || R <- ?REASONS]].
  
  %% The group determines how transports are terminated: by remove_transport,
  %% stop_service or application stop.
  