5 use SQL::Abstract::Tree;
7 my $sqlat = SQL::Abstract::Tree->new({
9 select => ['s(', ')s'],
10 where => ['w(', ')w'],
14 'group by' => ['gb(',')gb'],
15 'order by' => ['ob(',')ob'],
19 for ( keys %{$sqlat->colormap}) {
20 my ($l, $r) = @{$sqlat->colormap->{$_}};
21 is($sqlat->format_keyword($_), "$l$_$r", "$_ 'colored' correctly");