t/13whitespace_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         newline => "\n",
   9         indent_string => " ",
  10         indent_amount => 1,
  11         indentmap => {
  12       select     => 0,
  13       where      => 1,
  14       from       => 2,
  15       join       => 3,
  16       on         => 4,
  17       'group by' => 5,
  18       'order by' => 6,
  19         },
  20 });
  21
  22 for ( keys %{$sqlat->indentmap}) {
  23         my ($l, $r) = @{$sqlat->whitespace($_, 1)};
  24         is($r, ' ', "right is a space for $_");
  25         is($l, "\n " . ' ' x $sqlat->indentmap->{$_}, "left calculated correctly for $_" );
  26 }
  27
  28 is($sqlat->whitespace('select', 0)->[0], '', 'Select gets no newline or indent for depth 0');
  29
  30 done_testing;