anchor.diff:              end;
           {lex_error, _Error} ->
               ct:pal("~nFailed lex_error : Source~n > ~p", [Source]),
  -            throw({error, "Failed lex_error : " ++ _Error});
  +            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]),
  -            throw({error, "Failed parse_error : " ++ _Error})
  +            ct:pal("~nFailed parse_error : Error ~n > ~p", [_Error]),
  +            throw({error, "Failed parse_error"})
       end.
   
   %%------------------------------------------------------------------------------
  
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}.
  
  %%------------------------------------------------------------------------------
  %% 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]),
      SelTests = case proplists:get_value(tests, Opts) of
                     St when St =:= undefined; St =:= [] ->
                         {Indices, _} = lists:unzip(Tests),
  