anchor.diff:      ?P("[csock 1] await reply message 2"),
       receive
           {udp, CSock1, _, _, <<"hopp">>} ->
  -            ?P("[csock 1] received expected reply message 2")
  +            ?P("[csock 1] received expected reply message 2"),
  +            ok;
  +
  +        {'EXIT', Server, SReason2} ->
  +            ?P("received unexpected server exit (2):"
  +               "~n.     ~p", [SReason2]),
  +            ct:fail({unexpected_server_exit, 2, SReason2})
  +
       after 5000 ->
               ?P("[csock 1] receive (2) timeout:"
                  "~n      ~p", [mq()]),
               ct:fail(receive_timeout)
  -
       end,
   
   
  
positive.code:     end,
      
      ?P("cleanup"),
      (catch gen_udp:close(CSock)),
  
      ?P("done"),
      ok.
  
negative.code: 
      ?P("[csock 1] await reply message 3"),
      receive
          {udp, CSock1, _, _, <<"hopp">>} ->
              ?P("received expected reply message 3"),
              ok;
  
          {'EXIT', Server, SReason3} ->
              ?P("received unexpected server exit (3):"
                 "~n.     ~p", [SReason3]),
              ct:fail({unexpected_server_exit, 3, SReason3})
  
      after 5000 ->
              ?P("[csock 1] receive (2) timeout:"
                 "~n      ~p", [mq()]),
              ct:fail(receive_timeout)
  
      end,
  
  
  