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;