5 use SQL::Abstract::Tree;
7 my $sqlat = SQL::Abstract::Tree->new({
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 $_" );
28 is($sqlat->pad_keyword('select', 0)->[0], '', 'Select gets no newline or indent for depth 0');