expand alias
[dbsrgits/SQL-Abstract.git] / t / 12format_keyword.t
CommitLineData
110674e1 1use strict;
2use warnings;
3
4use Test::More;
5use SQL::Abstract::Tree;
6
7my $sqlat = SQL::Abstract::Tree->new({
428975b0 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 },
110674e1 17});
18
19for ( keys %{$sqlat->colormap}) {
428975b0 20 my ($l, $r) = @{$sqlat->colormap->{$_}};
21 is($sqlat->format_keyword($_), "$l$_$r", "$_ 'colored' correctly");
110674e1 22}
23
24
25done_testing;