anchor.diff:  		      		io:format(user, "~p~n-------------------------------~n", [Sqlstr]),
   		      		SqlCollapsed = sql_parse:collapse(Sqlstr),
   		      		io:format(user, "~p~n-------------------------------~n", [SqlCollapsed]),
  -		    		?assertEqual(sql_parse:collapse(string:to_lower(Sql)), SqlCollapsed),  		
  +		    		?assertEqual(sql_parse:collapse(string:to_lower(Sql)), string:to_lower(SqlCollapsed)),  		
   		    		{ok, NewTokens, _} = sql_lex:string(SqlCollapsed ++ ";"),
   		    		case sql_parse:parse(NewTokens) of
   		        		{ok, [NewParseTree|_]} ->
  
positive.code: -include("sql_tests.hrl").
  
  
  %% -define(logf, ok).
  -ifdef(logf).
  -define(LOG(F, A), io:format(user, "{~p,~p}:"++F, [?MODULE,?LINE] ++ A)).
  
  
negative.code: sqlb(_Ind, _Idx, _Parent, _Ch, _X, Acc) -> 
  	?LOG("~n---Fun ignores ~p~n", [_X]),
  	Acc.	
  % sqlb_reduce(Ind, 0, Parent, Ch, X, Acc) -> 
  % 	[Ch|Acc];	
  sqlb_reduce(Ind, Idx, Parent, Ch, X, Acc) -> 
  	sqlb_reduce(Ind, Idx, Parent, Ch, X, Acc,[]).
  
  