anchor.diff:          end}.
   
   %%------------------------------------------------------------------------------
  -%% Remove the whitespace characters from a string.
  -%%------------------------------------------------------------------------------
  -
  -remove_whitespace([], _WhiteSpace, Acc) ->
  -    lists:reverse(Acc);
  -remove_whitespace([CharIn | Tail], WhiteSpace, Acc) ->
  -    CharOut = case is_whitespace(WhiteSpace, CharIn) of
  -                  true ->
  -                      "";
  -                  _ ->
  -                      CharIn
  -              end,
  -    remove_whitespace(Tail, WhiteSpace, [CharOut | Acc]).
  -
  -is_whitespace([], _Char) ->
  -    false;
  -is_whitespace([Curr | Tail], Char) ->
  -    case Curr == Char of
  -        true ->
  -            true;
  -        _ ->
  -            is_whitespace(Tail, Char)
  -    end.
  -
  -%%------------------------------------------------------------------------------
   %% EUnit Test Driver - Processing Groups.
   %%------------------------------------------------------------------------------
   
   tests_gen(TestGroup, Tests, Opts, Logs) ->
  -    ?debugFmt(?MODULE_STRING ++ ":tests_gen ===>~nTestGroup = ~p~n, Tests = ~p~n, Opts = ~p~n, Logs = ~p~n", [TestGroup, Tests, Opts, Logs]),
  +    ?debugFmt(?MODULE_STRING ++ ":tests_gen ===>~nTestGroup = ~p~n Tests = ~p~n Opts = ~p~n Logs = ~p~n", [TestGroup, Tests, Opts, Logs]),
       SelTests = case proplists:get_value(tests, Opts) of
                      St when St =:= undefined; St =:= [] ->
                          {Indices, _} = lists:unzip(Tests),
  
positive.code:                                  NS_BU
                           end,
              ?D3("~n[BU] NewSource~n~s", [NSource_BU]),
              case string:to_lower(SourceNet) == string:to_lower(lists:flatten(remove_whitespace(binary_to_list(NSource_BU), ?WHITESPACE, []))) of
                  true ->
                      ok;
                  _ ->
                      ?D_("~n[BU] Error Source == NewSource : Source      ~n > ~p", [Source]),
                      ?D_("~n[BU] Error Source == NewSource : SourceNet   ~n > ~p", [SourceNet]),
                      ?D_("~n[BU] Error Source == NewSource : NewSourceNet~n > ~p", [lists:flatten(remove_whitespace(binary_to_list(NSource_BU), ?WHITESPACE, []))]),
                      throw({error, "[BU] Error Source == NewSource"})
              end,
              %% -----------------------------------------------------------------
              %% 3. Source (=NSource_BU) ==> ParseTree (=NPT_BU)
              %% -----------------------------------------------------------------
  
negative.code:             end;
          {lex_error, _Error} ->
              ct:pal("~nFailed lex_error : Source~n > ~p", [Source]),
              ct:pal("~nFailed lex_error : Error ~n > ~p", [_Error]),
              throw({error, "Failed lex_error"});
          {parse_error, {_Error, _Tokens}} ->
              ct:pal("~nFailed parse_error : Source~n > ~p", [Source]),
              ct:pal("~nFailed parse_error : Tokens~n > ~p", [_Tokens]),
              ct:pal("~nFailed parse_error : Error ~n > ~p", [_Error]),
              throw({error, "Failed parse_error"})
      end.
  
  %%------------------------------------------------------------------------------
  