make list always parenthesised, make , op work for everything else
[scpubgit/Q-Branch.git] / t / 12format_keyword.t
1 use strict;
2 use warnings;
3
4 use Test::More;
5 use SQL::Abstract::Tree;
6
7 my $sqlat = SQL::Abstract::Tree->new({
8   colormap => {
9     select     => ['s(', ')s'],
10     where      => ['w(', ')w'],
11     from       => ['f(', ')f'],
12     join       => ['j(', ')f'],
13     on         => ['o(', ')o'],
14     'group by' => ['gb(',')gb'],
15     'order by' => ['ob(',')ob'],
16   },
17 });
18
19 for ( keys %{$sqlat->colormap}) {
20   my ($l, $r) = @{$sqlat->colormap->{$_}};
21   is($sqlat->format_keyword($_), "$l$_$r", "$_ 'colored' correctly");
22 }
23
24
25 done_testing;