Backport undef-with-in tests from DQ, add "roadwork ahead" exceptions
[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;