Fix overly-enthusiastic parenthesis unroller (RT#99503)

[dbsrgits/SQL-Abstract.git] / t / 13whitespace_keyword.t

diff --git a/t/13whitespace_keyword.t b/t/13whitespace_keyword.t
index 838ed04..c06d2b0 100644 (file)
--- a/t/13whitespace_keyword.t
+++ b/t/13whitespace_keyword.t
@@ -20,11 +20,11 @@ my $sqlat = SQL::Abstract::Tree->new({
 });
 
 for ( keys %{$sqlat->indentmap}) {
-   my ($l, $r) = @{$sqlat->whitespace_keyword($_, 1)};
-   is($r, ' ', "right is a space for $_");
+   my ($l, $r) = @{$sqlat->pad_keyword($_, 1)};
+   is($r, '', "right is empty for $_");
    is($l, "\n " . ' ' x $sqlat->indentmap->{$_}, "left calculated correctly for $_" );
 }
 
-is($sqlat->whitespace_keyword('select', 0)->[0], '', 'Select gets no newline or indent for depth 0');
+is($sqlat->pad_keyword('select', 0)->[0], '', 'Select gets no newline or indent for depth 0');
 
 done_testing;