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