X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F13whitespace_keyword.t;h=c06d2b0f1b20e9424f1a7376f83edae296efcfa3;hb=a5f91febe5c3b54e262891687517e89c62d338cc;hp=838ed048d87b8de901028ba0da1d366ee3201314;hpb=ee4227a70551db9d17b5045b77b73d57f38981b1;p=dbsrgits%2FSQL-Abstract.git

diff --git a/t/13whitespace_keyword.t b/t/13whitespace_keyword.t
index 838ed04..c06d2b0 100644
--- 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;