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->pad_keyword($_, 1)};
  24    is($r, '', "right is empty for $_");
  25    is($l, "\n " . ' ' x $sqlat->indentmap->{$_}, "left calculated correctly for $_" );
  26 }
  27
  28 is($sqlat->pad_keyword('select', 0)->[0], '', 'Select gets no newline or indent for depth 0');
  29
  30 done_testing;