anchor.diff:  %% @doc Returns a list of all test cases in this test suite.
   %%
   all() ->
  -	[store_new, store_overwrite, add,
  -	fetch_existing, fetch_noexist, find_existing, find_noexist, get_all,
  +	[store_noexist, store_exist, add,
  +	fetch_exist, fetch_noexist, find_exist, find_noexist, get_all,
   	password, example1, example2, example3].
   
   %%---------------------------------------------------------------------
   %%  Test cases
   %%---------------------------------------------------------------------
   
  -store_new() ->
  +store_noexist() ->
   	[{userdata, [{doc, "Store a new attribute value"}]}].
   
  -store_new(Config) ->
  +store_noexist(Config) ->
   	AttrsBin1 = ?config(example_attributes, Config),
   	Attrs1 = radius_attributes:codec(AttrsBin1),
   	Attrs2 = radius_attributes:store(?NasPortType, 19, Attrs1),
  
positive.code: 			ok
  	end.
  
  find_existing() ->
  	[{userdata, [{doc, "Look for the value of an existing attribute"}]}].
  
  find_existing(Config) ->
  	AttrsBin = ?config(example_attributes, Config),
  	Attrs = radius_attributes:codec(AttrsBin),
  	{ok, "wlan0"} = radius_attributes:find(?NasPortId, Attrs).
  
negative.code: 	SizeBin1 = size(AttrsBin1),
  	<<AttrsBin1:SizeBin1/binary, ?NasPortType, 6, 19:32>> = AttrsBin2.
  
  store_exist() ->
  	[{userdata, [{doc, "Overwrite an existing attribute value"}]}].
  
  store_exist(Config) ->
  	AttrsBin1 = ?config(example_attributes, Config),
  	Attrs1 = radius_attributes:codec(AttrsBin1),
  	Attrs2 = radius_attributes:store(?NasPort, 17, Attrs1),
  