anchor.diff:  -export([
   	 split_fields/2,
   	 split_quoted_string/1,
  +	 split_non_quoted/2,
   	 parse_host/1,
   	 parse_hostport/1,
   	 is_alpha/1,
  
positive.code:     split_quoted_string2(T, false, [H | Res]);
  split_quoted_string2([], Escape, Res) ->
      erlang:error(no_end_quote, [Escape, Res]).
  
  
  %%--------------------------------------------------------------------
  
negative.code: 	SQS_Res6 -> throw({error, test_case_failed, SQS_Res6})
      end,
  
  
      %% split_non_quoted(Delim, In)
      %%--------------------------------------------------------------------
      autotest:mark(?LINE, "split_non_quoted/2 - 1"),
      %% regular test case
      {ok, ["foo", "bar"]} = split_non_quoted($;, "foo;bar"),
  
      autotest:mark(?LINE, "split_non_quoted/2 - 2"),
      %% with quotes and empty elements, this function does not strip spaces
      {ok, ["foo\";\" ", "bar"]} = split_non_quoted($;, ";foo\";\" ;;bar;;;"),
  
      autotest:mark(?LINE, "split_non_quoted/2 - 3"),
      %% with quotes and empty elements
      {ok, ["foo \"this is quoted ;\\\" baz \\ quote end here\" ", "bar"]} =
  	split_non_quoted($;, ";foo \"this is quoted ;\\\" baz \\ quote end here\" ;;;bar;"),
  
      autotest:mark(?LINE, "split_non_quoted/2 - 4"),
      %% unbalanced quotes
      {error, unbalanced_quotes} = split_non_quoted($;, ";foo=\"bar"),
  
      %% parse_hostport/1
      %%--------------------------------------------------------------------
  