anchor.diff:  	{_, Url} = lists:keyfind("url", 1, EventObj),
   	Reference = "http://host.example.net:8080"
   			++ ?usageSpecPath ++ "AAAAccountingUsageSpec",
  +	{_, Reference} = lists:keyfind("reference", 1, EventObj),
   	{_, "start"} = lists:keyfind("type", 1, EventObj),
   	{_, "success"} = lists:keyfind("outcome", 1, EventObj),
   	{_, {struct, [{"port", ServerPort}]}} = lists:keyfind("server", 1, EcsObj),
  
positive.code: 	{_, EventId} = lists:keyfind("id", 1, EventObj),
  	Url = "http://host.example.net:8080" ++ ?usagePath ++ EventId,
  	{_, Url} = lists:keyfind("url", 1, EventObj),
  	{_, "start"} = lists:keyfind("type", 1, EventObj),
  	{_, "success"} = lists:keyfind("outcome", 1, EventObj),
  	{_, {struct, [{"port", ServerPort}]}} = lists:keyfind("server", 1, EcsObj),
  
negative.code: 	{_, EventId} = lists:keyfind("id", 1, EventObj),
  	Url = "http://host.example.net:8080" ++ ?usagePath ++ EventId,
  	{_, Url} = lists:keyfind("url", 1, EventObj),
  	Reference = "http://host.example.net:8080"
  			++ ?usageSpecPath ++ "AAAAccessUsageSpec",
  	{_, Reference} = lists:keyfind("reference", 1, EventObj),
  	{_, "start"} = lists:keyfind("type", 1, EventObj),
  	{_, "success"} = lists:keyfind("outcome", 1, EventObj),
  	{_, {struct, [{"port", ServerPort}]}} = lists:keyfind("server", 1, EcsObj),
  