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:     [#box{ind=Ind, idx=Idx, collapsed=sqlb_collapse(Ind), name=atom_to_binary(A, utf8)}];
  
  sqlb(Ind, _Idx, _Parent, _Ch, _X='%ret%', Acc=[#box{ind=I}|_]) when I<Ind ->
  	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, _Idx, _Parent, _X]),
  	?LOG(" --> ~p", [Acc]),
  	Acc;
  sqlb(Ind, Idx, Parent, Ch, X, Acc=[#box{ind=I}|_]) when I>Ind ->			%% X='%ret%'
  	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, Parent, X]),
  	Acc1 = sqlb_reduce(I, Idx, Parent, Ch, X, Acc),
  	?LOG(" --> ~p", [Acc1]),
  	sqlb(Ind, Idx, Parent, Ch, X, Acc1);
  sqlb(Ind, Idx, Parent, Ch, X='%ret%', Acc=[#box{ind=I}|_]) when I==Ind ->
  	?LOG("~n---sqlb(~p,~p,~p,~p)", [Ind, Idx, Parent, X]),
  	Acc1 = sqlb_reduce(Ind, Idx, Parent, Ch, X, Acc),
  	?LOG(" --> ~p", [Acc1]),
  
negative.code: 	[Box#box{children=Children++Buf}|Rest].
  
  
  setup() -> ?TEST_SQLS2.
  
  teardown(_) -> ok.
  
  