anchor.diff:  otp_4956(suite) ->
       [];
   otp_4956(Config) when is_list(Config) ->
  -    put(verbosity, ?TEST_VERBOSITY),
  -    put(sname,     "TEST"),
  -    put(tc,        otp_4956),
  -    i("starting"),
  -
  -    MgcNode = make_node_name(mgc),
  -    MgNode  = make_node_name(mg),
  -    d("start nodes: "
  -      "~n      MgcNode: ~p"
  -      "~n      MgNode:  ~p", 
  -      [MgcNode, MgNode]),
  -    ok = ?START_NODES([MgcNode, MgNode], true),
  -
  -    d("[MGC] start the simulator "),
  +    Cond = fun() -> ok end,
  +    Pre  = fun() ->
  +                   put(tc, ?FUNCTION_NAME),
  +                   MgcNode = make_node_name(pl_4956_mgc),
  +                   MgNode  = make_node_name(pl_4956_mg),
  +                   i("try start nodes: "
  +                     "~n      MgcNode: ~p"
  +                     "~n      MgNode:  ~p", 
  +                     [MgcNode, MgNode]),
  +                   Nodes = [MgcNode, MgNode],
  +                   ok = ?START_NODES(Nodes, true),
  +                   #{nodes => Nodes}
  +           end,
  +    Case = fun(State) ->
  +                   do_otp_4956(State)
  +           end,
  +    Post = fun(#{nodes := Nodes}) ->
  +                   i("stop nodes"),
  +                   ?STOP_NODES(Nodes),
  +                   ok
  +           end,
  +    try_tc(?FUNCTION_NAME, Cond, Pre, Case, Post).
  +
  +do_otp_4956(#{nodes := [MgcNode, MgNode]}) ->
  +    i("[MGC] start the simulator "),
       {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode),
   
  -    d("[MGC] create the event sequence"),
  +    i("[MGC] create the event sequence"),
       MgcEvSeq = otp_4956_mgc_event_sequence(text, tcp),
   
       i("wait some time before starting the MGC simulation"),
  
positive.code:     Cond = fun megaco_test_code/0,
      Pre  = fun() ->
                     put(tc, ?FUNCTION_NAME),
                     MgcNode = make_node_name(pl_5619_mgc),
                     MgNode  = make_node_name(pl_5619_mg),
                     i("try start nodes: "
                       "~n      MgcNode: ~p"
                       "~n      MgNode:  ~p", 
  
negative.code: otp_5310(doc) ->
      "...";
  otp_5310(Config) when is_list(Config) ->
      Cond = fun() -> ok end,
      Pre  = fun() ->
                     put(tc, ?FUNCTION_NAME),
                     MgcNode = make_node_name(pl_5310_mgc),
                     MgNode  = make_node_name(pl_5310_mg),
                     i("try start nodes: "
                       "~n      MgcNode: ~p"
                       "~n      MgNode:  ~p", 
                       [MgcNode, MgNode]),
                     Nodes = [MgcNode, MgNode],
                     ok = ?START_NODES(Nodes, true),
                     #{nodes => Nodes}
             end,
      Case = fun(State) ->
                     do_otp_5310(State)
             end,
      Post = fun(#{nodes := Nodes}) ->
                     i("stop nodes"),
                     ?STOP_NODES(Nodes),
                     ok
             end,
      try_tc(?FUNCTION_NAME, Cond, Pre, Case, Post).
  
  do_otp_5310(#{nodes := [MgcNode, MgNode]}) ->
      %% Start the MGC and MGs
      i("[MGC] start"),    
      ET = [{text,tcp}, {text,udp}, {binary,tcp}, {binary,udp}],
  