anchor.diff:   	_ -> throw({error, test_failed})
       end,
   
  -    %% test to_string
  +    %% test that quoted value isn't lowercased
  +    io:format("test: to_norm/1 - 5~n"),
  +    #contact_param{pairs = [{"key","\"Value\""}]} = to_norm([{"Key", "\"Value\""}]),
  +
  +
  +    %% test to_string(Norm)
       %%---------------------------------------------------------------
       %% test that case and missing value part are handled properly
       io:format("test: to_string/1 - 1~n"),
       ";foo=bar;lr=true;a=43" = to_string(to_norm([{"foo","bar"}, {"lr","true"}, {"a","43"}])),
  +
       %% test empty param
       io:format("test: to_string/1 - 2~n"),
       "" = to_string(to_norm([])),
   
  -    %% test to_list
  +    %% test empty value
  +    io:format("test: to_string/1 - 3~n"),
  +    ";lr" = to_string( to_norm([{"lr", none}]) ),
  +
  +    %% test empty value #2
  +    io:format("test: to_string/1 - 4~n"),
  +    ";lr" = to_string( to_norm([{"lr", []}]) ),
  +
  +
  +    %% test to_list(Norm)
       %%---------------------------------------------------------------
       %% regular case
       io:format("test: to_list/1 - 1~n"),
  
positive.code: %%           component is already present in Params
  %%--------------------------------------------------------------------
  to_norm(Params) when is_list(Params) ->
      F = fun({Name, ValIn}) ->
  		Val =
  		    case ValIn of
  			none ->
  
negative.code: %%
  %% Note: keys and values are currently stored as strings but pattern
  %% matching and list:keysearch will be faster if standard values are
  %% represented as atoms (but don't turn them all into atoms - as atoms
  %% aren't GCed)
  %%--------------------------------------------------------------------
  
  