anchor.diff:  
       wss:send(Socket, Msg),
       {RecvAns, Ans} = wss:recv(Socket, 5000),
  +		wss:close(Socket),
       ?assertEqual(ok, RecvAns),
       case Ans =:= PongAnsBytes of
         true -> Sum + 1;
  
positive.code:     ?assertEqual([{testname1, "testvalue1"}, {testname2, "testvalue2"}], Vars),
  
      %% Cleanup
      ?assertEqual(ok, rpc:call(CCM, dao_lib, apply, [dao_vfs, remove_file, ["groups/" ++ TeamName], ?ProtocolVersion])),
      ?assertEqual(ok, rpc:call(CCM, dao_lib, apply, [dao_vfs, remove_file, ["groups/"], ?ProtocolVersion])),
  
  
negative.code:   Msg2 = erlang:iolist_to_binary(communication_protocol_pb:encode_clustermsg(Message2)),
    wss:send(Socket, Msg2),
    {RecvAns2, Ans2} = wss:recv(Socket, 5000),
  	wss:close(Socket),
    ?assertEqual(ok, RecvAns2),
    ?assertEqual(Ans2, AnsMessageBytes).
  
  